DISTRIBUTlPfi:  STATEMENT  K 


iljpprevrad  toi  public  V&loosa) 
Dia^oounan  Uaii2ut*d 


i 


AFIT/GNE/ENP/91M-3 


ELECTE 
JUL  22  1991 


HARDWARE  UPGRADE  OF  A  SEGMENTED 
DRUM  ASSAY  SYSTEM 


THESIS 

Claude  A,  Irvine,  Captain,  USAF 
AFIT/ GNE/ENP/ 91M-3 


Approved  for  public  release;  distribution  unlimited 


91-05728 


91 


A 


o  o 
4  Q 


AFIV/ GNE/ENP/ 91M-3 


HARDWARE  UPGRADE  OF  A  SEGMENTED  DRUM  ASSAY  SYSTEM 

THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

In  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Nuclear  Engineering 


Claude  A.  Irvine,  B.S. 
Captain,  USAF 

March  1991 


I 

i 


I--.-- 


Approved  for  public  release;  distribution  unlimited 


Preface 


) 

\} 

This  thesis  describes  the  conversion  of  a  drum  assay 
measurement  computer  system  (Digital  Computer  System  PDP- 
11/05),  at  EG&G  Hound  Applied  Technologies,  with  an  IBM  PC- 
The  conversion  of  the  computer  system  was  primarily  a  team 
effort.  For  this,  I  am  indebted  to  Mr.  Allen  Campbell  and 
Steve  Rowe  of  the  Safeguards  Applications  Development  and 
Nuclear  Material  Control  Group  at  Mound,  and  to  Ernie  Tyra 
of  the  Electrical  Engineering  Group.  Also,  many  thanks  to 
Major  Beller,  my  thesis  advisor  at  the  Engineering  Physics 

Department,  who  made  this  all  possible.  ^ 
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Abstract 


“V-This  paper  describes  the  conversion  of  a  DEC  PDP-11/05 
computer  system,  previously  used  in  Canberra's  Model  2220B 
segmented  gamma  scanner,  with  an  IBM  PC.  Two  tasks  neces¬ 
sary  for  completion  of  the  project  involved  reestablishing 
communications  with  a  Canberra  Series  35+  multi-channel 
analyzer  and  a  scan  table  controller.  An  additional  seri¬ 
al/parallel  card  was  installed  in  the  PC  to  reinstate  commu 
nications  with  the  multi-channel  analyzer.  For  computer 
control  of  scan  table  controller  operations  a  digital 
input/output  card  was  used  along  with  an  external  electrome 
chanical  relay  board;  when  implemented  together  this  hard¬ 
ware  setup  replaces  functions  that  were  normally  processed 
through  a  motion  control  interface  card  housed  within  the 
DEC.  .  Software  consisted  of  Canberra’s  PC  Toolkit  while 
newer  programs  were  written  in  Microsoft's  QuickBASIC  4.5 
and  Macro  Assembler  5.1.  Five  codes  were  written — two  of 
these  are  device  drivers  written  in  assembly  language  and 
the  other  three  are  menu  and  control  programs  written  in 
QuickBASIC.  The  modification  enables  simplified  programmer 


enhancements . 
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HARDWARE  UPGRADE  OF  A  SEGMENTED  DRUM  ASSAY  SYSTEM 


I.  Introduction 

During  the  past  several  years  EG&G  Mound  Applied  Tech¬ 
nologies  has  been  using  a  Canberra  Model  2220B  segmented 
gamma  scanner  for  measuring  the  amount  of  ™Pu  in  waste 
drums.  This  system  has  worked  well,  however  the  computer,  a 
DEC  PDP-11/05,  was  difficult  to  program  and  implementing 
additional  enhancements  proved  even  more  formidable.  Thus  a 
decision  was  made  tc  replace  the  outmoded  DEC  with  a  small 
personal  computer,  an  IBM  PC. 

However,  the  up-to-date  computer  system  would  still  have 
to  manage  control  over  the  existing  equipment.  Especially 
important  was  initiating  operation  of  a  Canberra  Series  35+ 
multi-channel  analyzer  (MCA)  and  a  scan  table  controller 
(STC).  In  the  DEC  system,  a  motion  control  interface  (MCI) 
card  controlled  the  STC  by  acting  as  a  switch  closure 
device;  so  as  a  substitute  in  the  PC,  a  digital  input/output 
card  was  used  in  conjunction  with  an  external  electromechan¬ 
ical  relay  board.  For  reconnection  of  bi-directional  commu¬ 
nication  circuits  between  t V </>  PC  and  the  MCA  a 
serial/parallel  card  was  installed.  Finally  software  was 
developed  to  run  the  modifit.u  /rum  assay  system. 


Next,  the  development  of  the  DEC  to  PC  conversion  is 
explained  by  subdividing  the  following  report  into  two 
parts.  For  the  reader  unf ami liar  with  drum  assay  measure¬ 
ments,  the  first  part  is  a  short  discussion  of  the  equipment 
used  and  how  a  drum  assay  procedure  is  performed.  The 
second  part  (Chapter  3)  is  a  detailed  discussion  of  the  DEC 
to  PC  conversion.  Host  of  the  drum  assay  equipment  is  shown 
in  Figures  1.1  and  1.2,  with  Figure  1.2  showing  the  present 
system  at  Mound  as  a  result  of  the  computer  upgrade. 
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Fig.  1 .2  Present  Drum  Assay  System  'Configuration 


II.  Principal  Mett.iJ  of  Drum  Examination 


The  simplest,  non-invasive  method  for  assaying  radionu¬ 
clides  in  sealed  drums  is  by  spectroscopy  of  gamma  rays  that 
are  sufficiently  energetic  and  intense  to  penetrate  the 
walls  of  the  drums.  In  most  instances,  spectra  obtained  by 
a  high-resolution  detector,  such  as  an  intrinsic  germanium 
coaxial  detector  used  at  Hound,  will  be  characteristic  of 
specific  radionuclides.  However,  the  success  of  an  assay 
depends  on  the  activity  of  the  source,  the  mode  of  decay  of 
the  radionuclides  and  whether  they  emit  gamma  rays  of  suffi¬ 
cient  energy  to  penetrate  the  walls  of  the  drum.  Complica¬ 
tions  are  further  introduced  by  the  shielding  factor  of  the 
drums  and  drum  contents.  Yet  in  most  cases  the 
determination  of  the  radionuclide  identities  are  readily 
obtained  by  examination  of  the  gamma  peaks  in  a  spectrum. 

Drum  Assay  Measuring  Equipment 

A  complete  drum  assay  system  usually  consists  of  a  num¬ 
ber  of  distinct,  separately-bought  nuclear  instrumentation 
modules,  or  instead,  a  complete  system  can  be  purchased. 
There  are  several  companies  that  build  integrated  drum  assay 
measurement  systems,  only  one  in  particular  is  discussed  in 
this  report,  the  system  used  by  Mound  which  is  manufactured 
by  Canberra  Industries,  Inc. 

The  following  is  a  list  of  equipment  of  the  drum  assay 
measurement  system: 
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1.  A  ganuna-ray  detector,  to  determine  the  energy  of 
the  absorbed  gamma  rays. 

2.  Pre-amplifier  and  spectroscopy  amplifier,  for 
amplifying  and  shaping  the  signal. 

3.  Multi-channel  analyzer,  for  determining  the 
gamma-ray  peaks. 

4.  Computer,  for  analyzing  the  data. 

5.  A  drum  table  platform,  for  manipulating  waste 
barrels . 

The  above  listing  does  not  include  ancillary  items  such  as 
power  supplies,  drivers,  cables,  etc.,  nor  does  it  account 
*  software  that  is  riiwical  for  controlling  an  entire 
sy.;  em. 


Drum  Assay  Procedure 

To  begin  the  procedure  a  sealed  drum  of  known  radioac¬ 
tive  waste,  called  the  calibration  standard,  is  placed  on  a 
rotating  platform  and  elevated  to  expose  its  lower  side  to  a 
collimated,  gamma-ray  detector.  Next,  the  drum  is  scanned 
by  the  detector  for  a  preset  duration.  Then  the  drum  is 
lowered  to  another  position  and  another  scan  is  completed. 
Note:  each  successive  step  of  the  moving  stage  is  controlled 
through  the  use  of  computer  software.  Finally,  once  the 
entire  length  of  the  drum  has  been  scanned,  the  computer 
generates  a  report  of  the  contents  based  on  the  radionu¬ 
clides  identified  from  the  gamma-ray  spectra  observed  (see 
Appendix  A  for  a  sample  print-out). 
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One  purpose  of  the  calibration  standard  is  to  determine 
the  absolute  efficiency  of  the  detection  system.  This 
information  is  then  used  as  input  data  for  future  drum  assay 
measurements.  In  addition,  the  data  serves  as  a  benchmark 
for  subsequent  measurement  control  runs.  For  this  purpose 
the  Mound  Technical  Manual1  specifies  that  calibration  data 
be  taken  both  before  and  after  each  session  of  drum  assays 
to  confirm  that  the  detection  efficiency  of  the  system 
hasn’t  changed.  After  completing  a  calibration  run,  succes¬ 
sive  assays  following  the  same  routine  can  be  repeated  for 
one  or  more  drums. 
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III.  Hardware  Upgrade  at  Mound 

The  scanning  system  modified  at  Mound  Nuclear  Safeguards 
and  Development  Group  was  a  Canberra  Model  2220B.  Since  the 
purpose  of  replacing  the  DEC  with  a  PC  was  to  attain  a  more 
efficient  and  reliable  scanning  system,  a  spin-off  would  be 
simplification  of  code  enhancements.  However,  modernizing 
the  hardware  necessitated  installation  of  three  boards--a 
serial/parallel  card,  a  parallel  input/output  card  and  an 
electromechanical  relay  board--to  replace  functions  formerly 
controlled  by  the  DEC.  This  chapter  discusses  installation 
of  those  items  and  of  software  developed  to  enable  PC-to-STC 
hardware  handshaking  and  to  link  Canberra-supplied  communi¬ 
cation  programs  to  the  MCA. 

Microsoft  QuickBASIC  was  the  primary  language  for  soft¬ 
ware  development.  Hence  all  software  programs  would  run 
inside,  or  in  conjunction  with,  the  QuickBASIC  Interpreter. 
Hardware  drivers  were  written  in  Microsoft  MACRO  and  then 
compiled  and  linked  as  a  QuickBASIC  library.  As  a  conse¬ 
quence,  the  library  module  has  to  be  loaded  when  QuickBASIC 
is  started. 

Problem  Definition 

To  complete  the  changeover,  the  PC  needed  to  interface 

with  existing  equipment  by  performing  three  main  functions: 

1.  Communicate  bi-directional  data  transfers  with 
an  external  MCA,  via  serial  interface  for  ccm- 
mand/control  functions  and  parallel  interface 
for  data  transfers. 
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2.  Function  as  the  control  panel  by  supplying 
driver  signals  and  sensing  feedback  signals  to 
and  from  the  STC  (the  STC  drives  trolley  motors 
and  lifts  the  drum  turntable  up  and  down,  and 
performs  other  various  functions). 

3.  Analyze  spectral  data  taken  by  the  MCA. 

Furthermore,  development  of  new  software  would  be  needed 

to  replace  existing  codes.  Originally  the  DEC  PDP-11/05 
controlled  input  and  output  functions  by  using  BASIC/RT-11 
language  programs  provided  by  Canberra.  This  software  con¬ 
sisted  of  3  main  modules: 

1.  A  BASIC  language  interpreter,  with  callable 
machine  language  functions  for  system  control 
and  data  acquisition. 

2.  A  calibration  program. 

3.  A  general  purpose  program  that  included  several 
BASIC  subroutines  for  allowing  the  computer  to 
control  MCA  functions,  like  setting  up  a  region- 
of-interest  (ROI),  doing  a  spectral  peak  search, 
or  presetting  counting  time,  etc.  (a  more 
universal  set  of  subroutines  that  parcels  con¬ 
trol  and  data  transfers  between  the  DEC  and  MCA 
is  given  by  Larry  V.  East2). 

Because  ail  of  the  other  drum  assay  equipment  was  retained, 
newly  written  programs  for  the  PC  would  have  tn  execute 
identical  tasks  to  the  above  BASIC/RT-11  language  programs. 
Thus  the  modified  drum  assay  system  would  still  operate 
similarly  to  that  of  the  original  DEC  system. 


Electrical  Mapping  of  Hardware 

This  section  discusses  installation  of  new  hardware  nec¬ 
essary  to  connect  the  PC  with  the  MCA  and  STC.  MCA  communi¬ 
cation  hardware  consisted  of  a  parallel  driver  card 
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(commonly  called  the  Fast  IBM  Interface  or  3576)  and  a 
serial  communication  card  (just  referred  to  as  the  PC  Inter¬ 
face  or  3575).  PC  to  MCA  electrical  connections  were  estab¬ 
lished  by  installing  a  serial/parallel  (S/P)  adapter  board 
in  slot  #2  of  the  PC,  and  coupling  both  serial  ports  by  way 
of  a  9-pin  null  modem  cable,  9-pin  to  25-pin  adapter,  and 
25-pin  ribbon  cable.  Similarly,  the  parallel  ports  were 
connected  with  a  shielded  25-pin  cable.  Figure  3.1  shows 
the  wiring  diagram  and  cable  connections. 

Additionally,  since  there  was  a  limited  number  of  serial 
ports  on  the  PC,  a  Clear  Signal  T-Switch  Box  was  spliced 
into  the  serial  line  so  other  applications  could  utilize  the 
same  serial  port.  Serial  hardware  handshaking  is  enabled 
when  the  switch  on.  the  box  is  in  the  "A"  position. 

The  baud  rate  for  the  logic  board  in  the  MCA  was  set  to 
1200bps.  Higher  transmission  speeds  are  also  possible,  how¬ 
ever,  the  CANBERRA  PC  Toolkit  Software  Manual3  advises  if 
Microsoft  Windows  is  to  be  used  the  baud  rate  of  the  serial 
port  should  be  less  than  or  equal  to  1200bps,  thus  assuring 
no  characters  are  lost  in  the  transfer  process.  It  was 
decided  to  limit  data  transmission  to  1200bps  for  now, 
thinking  that  in  the  future  windowing  capability  might  be 
applied. 

Because  a  common  setting  of  1200bps  on  both  PC-to-MCA 
communication  boards  was  used,  installing  both  serial  and 
parallel  communications  were  a  necessity  because  of  the  huge 
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Figure  3.1  PC  to  MCA/STC  Wiring  Di 


amount  of  data  sent  over  the  lines  (the  MCA  could  send  up  to 
8192  channels  of  information).  Transferring  that  amount  of 
data  through  a  serial  line  would  take  up  too  much  time,  so 
to  minimize  the  transmission  interval,  command  ar  .  control 
functions  were  routed  over  a  serial  line  while  !..♦  transfer 
used  parallel  exchange.  Note  however,  parallt  1;-  trans¬ 
fer  was  not  critical  since  all  MCA  functions  coul  be  han¬ 
dled  through  serial  communications. 

For  PC-to-STC  communications,  a  high-output  cvrrent, 
parallel  digital  interface  (PIO-24)  was  installed  in  PC  slot 
#5  (base  address  304  hex),  along  wich  an  external  electrome¬ 
chanical  8  channel  SPDT  relay  board  (ERA-01),  to  route  PC  to 
STC  communications.  All  digital  input/output  lines  from  the 
PIO-24  are  connected  to  the  ERA-01  via  a  MetraByte  C1800 
ribbon  cable.  Cabling  from  the  ERA-01  to  STC  is  by  way  of  a 
25-pin  ribbon  cable.  Again,  Figure  3.1  shows  the  wiring 
diagram  for  cable  and  equipment  connections,  and  Figure  3.2 
shows  a  schematic  of  the  electrical  connections. 

The  PIO-24  and  ERA- 01  devices  are  the  functional  equiva¬ 
lent  of  the  MCI  card  (recall  Figure  1.1).  Originally,  the 
MCI  served  7  control  lines  by  sinking  300  ma  to  common 
ground  of  an  EGSG  ORTEC  NIM  power  suppiy.  But  the  PIO-24 
could  only  sink  64  ma  to  ground,  so  it  was  used  to  drive  the 
ERA-01.  Sink  current  is  maintained  for  7  control  lines 
through  a  aet  of  relay  contacts  on  the  ERA-01  board.  In 
addition,  5  s^nse  lines  from  the  STC  enter  the  ERA-01. 
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These  liAes  are  for  sensing  contact  closure  only  and  are 
presently  disconnected.  For  more  information  on  control  and 
sense  lines,  see  the  next  section,  "Establishing  PC  to  STC 
Communications . " 

Three  of  the  7  PIO-24  control  lines  drive  3  relays  on 
the  STC:  Kl,  K2 ,  and  K3.  Output  from  K1  and  K2  set  the 
"return"  and  "advance"  contacts  of  6  small  relays  on  the 
drum  turntable  panel  box.  The  panel  box  has  7  large  contact 
relays  (CR’s  1-7)  which  drive  the  left  and  right  trolley 
motors  and  drum  rotation  motor;  the  small  relays  (CR's  8-13) 
are  the  relay  drivers  for  CR's  1-7.  Output  from  K3  opens 
and  closes  a  shutter  used  by  the  transmission  source.  The 
other  4  control  lines  (1-4)  turn  on  display  lamps  on  the  STC 
panel . 

Appendix  J  shows  each  control  line  connection  on  the 
PIO-24,  ERA-01  and  STC.  For  example,  control  line  5  is  PB 
port  bit  5  on  the  PIO-24,  PB  port  relay  normally  open  con¬ 
tacts  on  the  ERA-01,  and  pin  connection  J2-13  on  the  STC. 

In  actuality  a  port  bit  does  not  directly  join  end  to  end  a 
port  with  its  relay  contacts,  however,  what  is  meant  is  the 
port  bit  can  energize  a  corresponding  relay  on  the  ERA-01. 
Furthermore,  the  "common"  contacts  of  all  the  relays  are 
connected  to  J2-25,  which  is  common  ground  of  the  NIM  power 
supply.  Since  the  contacts  of  the  PB  port  relays  are  nor¬ 
mally  open,  no  connection  is  made  to  ground.  However,  set¬ 
ting  a  PB  port  bit  high  on  the  PIO-24  (through  TableSYS. ASM) 
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will  close  the  proper  relay  on  the  ERA-01  and  short  the 
normally  open  contacts  to  ground--in  essence,  activating  a 
control  line.  In  this  way  the  PIO-24  and  ERA-01  combination 
can  replace  functions  formerly  managed  by  the  MCI. 

Establishing  PC  to  MCA  Software  Communications 

The  Canberra  S370  PC  Toolkit  is  a  collection  of  driver 
and  utility  programs  (17  total)  useful  for  setting  remote 
control  communications  between  a  Canberra  MCA  and  an  IBM 
compatible  computer.  The  3  most  important  programs  are  PCU- 
TIL.BAS,  MCAS.COM  and  SETMCA.COM  (page  13  of  the  PC  TOOLKIT 
SOFTWARE  manual  provides  an  in-depth  explanation  of  each 
program).  These  programs  establish  serial  communication. 
Both  MCAS  and  SETMCA  are  executable  device  drivers  while 
PCUTIL  is  a  GWBASIC  utility  program.  The  essential  codes 
for  parallel  communication  are  BINS.COM,  BINSTUFF.OBJ  and 
FASTRAN.EXE.  Both  FASTRAN  and  BINSTUFF  are  FORTRAN  test 
programs,  while  BINS  is  the  parallel  device  driver.  Since 
all  6  programs  were  vital  in  governing  MCA  operations,  each 
one  was  installed. 

The  first  prerequisite  was  to  check  the  settings  of  the 
S/P  board  port  addresses.  By  default,  initial  factory  set¬ 
tings  activate  software  handshaking  using  serial  port  #2  and 
parallel  port  #3.  Port  allocation  was  verified  by 
CHECKCOM.COM,  a  program  that  verifies  port  availability  and 
determines  whether  or  not  the  port  is  suitable  for  serial  or 
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parallel  communications.  Then  the  device  drivers,  MCAS.COM 
and  BINS.COM,  were  installed  in  CONFIG.SYS.  Appendix  B 
lists  a  print-out  of  CONFIG.SYS.  Since  the  jumper  in  the 
S/P  card  was  set  to  COM2  and  LPT3 ,  the  device  driver  argu¬ 
ments  in  CONFIG.SYS  (for  MCAS.COM  and  BINS.COM)  are  COM2  and 
LPT3,  respectively. 

Finally,  SETMCA  was  added  to  AUTOEXEC.BAT.  Appendix  C 
lists  a  printout  of  AUTOEXEC.BAT.  SETMCA  sets  the  software 
for  serial  communication  to  operate  at  1200bps — the  same  as 
the  baud  rate  setting  on  the  MCA  logic  board.  Note:  when 
changing  the  baud  rate,  failure  to  set  the  logic  board  and 
SETMCA  to  the  same  value  will  disable  serial  handshaking. 

Since  Canberra  specified  serial  communications  could  be 
accomplished  in  either  BASIC  or  FORTRAN  languages,  and  par¬ 
allel  data  transfer  by  using  FORTRAN  only,  a  principal  lan¬ 
guage  needed  to  be  selected.  The  Microsoft  QuickBASIC 
Interpreter  beca?r,«  v-e  primary  language  for  code  development 
because  of  its  outs‘  :ding  debugging  capabilities.  However, 
this  meant  FASTFCW  ;  •'*  1  to  be  rewritten  in  QuickBASIC  with 
BINSTUFF  converted  ov,  r  to  a  QuickBASIC  library,  and  lastly, 
PCUTIL  needed  t\-  r ’in  inside  the  interpreter. 

Proper  operation  of  the  serial  communication  line  was 
checked  by  running  PCUTIL  under  GWBASIC.  Several  commands 
were  given,  e.g.,  initialize  the  MCA  and  set  regions  of 
interest,  in  verifying  serial  hardware  setup.  No  problems 
were  encountered. 
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DrumSYS.ASM.  The  original  BINSTUFF  was  a  collection  of 
5  FORTRAN  subroutines  that  passed  data  back  and  forth  to  the 
device  driver,  BINS.  However,  BINSTUFF  didn't  work,  at 
least  in  the  QuickBASIC  environment.  Replacing  the  object 
code  meant  BINSTUFF  had  to  be  rewritten  in  assembly  lan¬ 
guage,  and  also  had  to  be  Microsoft  compatible  in  order  to 
be  linked  as  a  QuickBASIC  library.  Appendix  D  lists  the 
assembly  source  code  for  DrumSYS.ASM — essentially  the  same  5 
procedures  as  in  BINSTUFF  but  condensed  into  one  code  and 
data  segment  and  rewritten  with  Microsoft  Macro  Assembler4 
directives/instructions  and  BASIC  calling/naming  conven¬ 
tions  . 

Two  of  the  five  procedures  are  documented  in-depth, 
while  the  other  three  share  instructions  similar  to  those 
observed  in  the  first  two  procedures.  And  all  of  them  fos¬ 
ter  DOS  interrupt  functions  and  standard  File  Control 
Blocks . 

Because  documentation  on  BINS  and  BINSTUFF  was  nonexis¬ 
tent,  it  made  deciphering  the  original  BINSTUFF  difficult. 
Apparently  DEVICE  is  used  as  a  symbol  for  the  ASCIIZ  string, 
'BIN1.'  This  means  BINl  is  a  device  (opened  by  BINS)  for 
writing  data  to  during  a  parallel  data  transfer.  In  the 
same  fashion,  FILEHANDLE  is  a  symbol  that  contains  the  file 
handle. 
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DOS  interrupts  open  and  close  the  file  BIN1.  For  exam¬ 
ple,  the  first  interrupt  ( INT  21/3D)  in  the  OPEHBI  procedure 
accesses  the  file  private  to  the  current  process.  On  a 
successful  return,  BIN1  is  opened  with  the  read/write 
pointer  at  the  beginning  of  the  file.  The  file  handle  (a 
2-byte  number,  or  word)  is  used  in  later  DOS  interrupts  to 
reference  bach  to  BIN1.  Actually,  file  handle  is  the  2-byte 
offset  address  while  DS  (Data  Segment  register)  points  to 
the  segment  address,  also  2  bytes. 

After  BIN1  is  opened,  the  next  procedure,  INBIN,  per¬ 
forms  the  actual  data  transfer.  Now  parameters  are  passed 
to  the  procedure  along  with  the  return  address.  A 
requirement  of  BASIC  is  tc  declare  assembly- language  proce¬ 
dures  as  FAR.  Hence,  the  return  address  is  4  bytes  long. 
This  may  not  seem  important  at  first,  but  when  DrumSYS.BAS 
calls  these  procedures  it  makes  a  difference.  The  reason 
for  this  is  the  way  BASIC  calls  an  assembly- language  pro¬ 
gram.  By  default,  BASIC  passes  parameters  to  a  procedure  by 
reference  as  a  2-byte  address5.  But  as  will  be  seen  later 
on  in  DrumSYS.BAS,  the  parameters  are  passed  as  LONG,  i.e., 
a  2-byte  segment  address  in  both  SS  and  DS  registers  plus 
another  2-byte  offset  address--4  bytes  total.  First,  BP, 
which  serves  as  a  f ramepointer ,  is  pushed  unto  the  stack. 
Next  BP  is  loaded  with  the  last  value  SP  (Stack  Pointer) 
pointed  to--the  old  value  of  BP.  Since  BP  never  changes  in 
the  procedure,  all  4-byte  parameters  pushed  onto  the  stack. 
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and  the  4-byte  return  address,  can  be  referenced  relative  to 
BP.  Thus,  if  2  parameters  were  pushed  onto  the  stack, 
[BP+12]  would  point  to  the  first  parameter,  [BP+8]  would 
point  to  the  second  parameter,  and  finally,  [BP+4]  would 
point  to  the  return  address.  Then  it  is  a  simple  matter  to 
access  the  data  as  required  in  the  rest  of  the  procedure's 
body. 

In  summary,  the  original  procedures  from  BINSTUFF  were 
rewritten,  and  the  new  assembly- language  program  is  called 
DrumSYS.ASM.  Next,  DrumSYS.ASM  was  made  into  a  QuickBASIC 
library.  From  the  DOS  prompt,  DrumSYS.ASM  is  compiled  into 
an  object  code  using  the  command: 

>  MASM  DrumSYS.ASM  /zi 

The  option  /zi  is  an  assemble-time  option  that  produces  an 
object  file  in  CodeView  format.  CodeView  is  a  symbolic 
debugger  from  Microsoft  and  is  useful  for  troubleshooting 
machine  code.  For  now,  the  compiled  code  called  DrumSYS.OBJ 
is  linked  as  a  QuickBASIC  library  using  the  command: 

>  Link  /q  DrumSYS.OBJ,DrumSYS.QLB, ,BQLB45.LIB  /co 
Again,  the  /co  option  is  used  for  CodeView  only. 

To  call  the  procedures  inside  the  QuickBASIC  Inter¬ 
preter,  QuickBASIC  has  to  be  loaded  with  the  command: 

QB  /I  DrumSYS.QLB 

Now  the  QuickBASIC  Interpreter  has  all  five  procedures 
available  for  accomplishing  parallel  data  transfers.  In  the 
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following  section,  the  conversion  of  FASTRAN  into  the  code 
DrumSYS.BAS  is  discussed  along  with  how  parameters  have  to 
be  defined  before  they  can  be  passed  :o  DrumSYS.QLB. 

DrumSYS.BAS.  As  pointed  out  earlier,  BINSTUFF  was  to 
be  called  from  a  FORTRAN  program  called  FASTRAN.  FASTRAN 
was  a  test  program  that  could  transfer  data  files  (MCA  spec¬ 
tra)  on  disk  to  and  from  the  MCA.  It  used  a  serial  line  for 
sending  simple  command  functions  while  data  were  dispatched 
over  a  parallel  line.  The  new  FASTRAN,  rewritten  in  Quick¬ 
BASIC,  is  called  DrumSYS.BAS.  Appendix  E  lists  the  Quick¬ 
BASIC  source  code  for  DrumSYS.BAS — practically  the  same 
lines  as  in  FASTRAN  but  rewritten  with  Microsoft  QuickBASIC 
subroutines  and  BASIC  calling/naming  conventions. 

Another  addition  to  DrumSYS.BAS  was  the  ability  to  chain 
to  Canberra's  utility  program  PCUTIL.BAS.  However,  PCU- 
TIL.BAS  would  not  run  in  the  QuickBASIC  Interpreter,  so  it 
was  modified.  Because  of  the  length  of  this  program 
(approximately  800  lines  of  code),  it  is  not  listed  here. 

The  new  program  (PCUTILQB .BAS)  is  the  same  as  Canberra’s 
except  with  a  few  minor  changes. 

DrumSYS.BAS  is  adequately  documented,  so  only  a  short 
discussion  is  included  here.  However,  there  are  two  impor¬ 
tant  peculiarities.  One  has  to  do  when  DrumSYS.BAS  is  first 
started,  and  the  other  when  parameters  are  passed  to 
DrumSYS. ASM. 
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The  serial  device  driver  MCAS.COM  opens  two  devices, 
denoted  MCA IN  and  MCAOUT.  These  devices  are  used  for  MCA 
communication;  note:  they  are  not  "ordinary"  files.  Drum- 
SYS.BAS  will  write  information  to  MCAOUT  and  read  data  from 
MCAIN  in  order  to  communicate  with  the  MCA.  If  the  MCA  does 
not  respond  and  an  error  condition  occurs  when  DrumSYS.BAS 
opens  MCAIN  for  input,  press  the  INDEX  and  HOME  keys  (on  the 
MCA  front  panel)  simultaneously  to  clear  the  MCA  and  enable 
handshaking.  In  the  event  the  above  does  not  work,  then 
press  the  YES  key  (on  the  MCA  front  panel)  and  retry.  The 
previous  steps  should  only  be  needed  when  the  MCA  is  first 
turned  on.  The  reason  is  because  on  the  back  of  the  MCA 
there  is  a  switch  that  has  three  positions:  Remote,  Shared, 
and  Local.  When  the  switch  is  in  the  Shared  position  both 
the  front  panel  keyboard  and  a  remote  computer  can  enable 
handshaking.  However,  during  a  cold  start-up  and  when  the 
switch  is  in  the  Shared  position,  the  MCA  electrically  pulls 
one  of  the  serial  line  pins  low,  thus  disabling  remote  com¬ 
munications.  The  above  procedure  reinstates  remote  communi¬ 
cations  . 

In  DrumSYS.BAS  parameters  are  passed  to  DrumSYS.ASM  as 
LONG,  i.e.,  a  2-byte  segment  address  plus  another  2-byte 
offset  address.  This  implies  numerical  data  must  be 
declared  LONG  (4  bytes).  In  QuickBASIC  an  integer  data  type 
is  only  2  bytes  long,  so  failing  to  pass  values  as  4  bytes 
will  eventually  cause  the  computer  to  hang.  The  problem  is 
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solved  in  DrumSYS.BAS  with  the  ”DP'  SHARED  IA.R(8194)  AS 
LONG"  statement.  Another  concern  is  how  the  array  IAR  is 
passed.  BAl^C  uses  "array  descriptor"  *  „  .^ass  arrays. 

The  array  descriptor  lets  BASIC  access  an  array  Ly  pointing 
to  the  first  element  ofc  the  array’s  address.  This  is  neces¬ 
sary  because  BASIC  allocates  oonV'Vter  memory  dynamically: 
thus  an  array  may  shift  in  memory  location  when  the  program 
is  run.  -Therefore  QuickBASIC  VARPTR  and  VAP^EG  functions 
must  be  used  when  passing  an  array.  However,  one  exception 
to  this  rule  is  if  the  array  elements  are  passec  by  value. 
For  mote  information  on  FASiC  array  descriptors  .ee  Micro¬ 
soft’s  Mixed-Language  Prog_* j..,<ming  Guide. 

Establishing  PC  to  STC  Software  Communications 

The  STC  (model  #2225B)  is  the  rack  mounted  control  panel 
for  the  gamna  scanner6  .  T.t  is  the  main  panel  for  starting 
an  assay  measurement  sequence.  The  panel  performs  four  cen¬ 
tral  functions:  SYSTEM  POWER,  SEGMENT  SIZE  CONTROL,  TABLE 
ROTATION  and  PROGRAM  CONTROL.  These  functions  are 
summarized  in  the  Segmented  Gamma  Scanner  Operating  Manual 
as  follows: 

1.  SYSTEM  POWER:  Turns  on  the  AC  power  to  the  drum 
rotator  panel  and  contains  the  emergency  stop 
button . 

2.  SEGMENT  SIZE  CONTROL:  Limits  the  length  of  drum 
segments.  Use  of  the  RETURN  button  moves  v.he 
drm  table  to  the  top  position  and  using  the 
ADVANCE  button  indexes  timer  to  advance  the  drum 
table  downwards.  Note:  RETURN  and  ADVANCE  are 
computer  controlled  relays. 
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3,  TABLE  ROTATION i  OK  position  the  trollies  for¬ 
ward  and  starts  drum  table  rotatio'..  OFF  posi¬ 
tion  moves  the  trollies  backward  and  stops  drum 
table  '.rotation. 

4.  PROGRAM  C'^^ROL;  SHUTTER  opens  and  closes  the 
shutter.  AS'JRT  terminates  the  drum  a^say  mea¬ 
surement.  CAL IE  initiates  thr  calibration  pro¬ 
cedure.  2NIT  allows  for  *-*r.7".al  cal ibrr tion  of 
drum.  ASSAY  starts  the  assay  measurement 
procedure. 

Two  of  the  functions,  SEGMENT  SIZE  CONTROL  and  PROGRAM 
CONTROL,  deploy  "digital"  input/rutput  lines  to  implement  a 
drum  assay  procedure. 

Presently  there  are  3.2  digital  li~^«,  V  *-->ntrcl  lines 
and  5  sense  lines.  These  are  '  .mtrnarized  in  Table  3.1.  The 
PC  invokes  operation  of  che  control  lines  through  l?ble- 
SYS.ASM,  the  software  driver  for  the  STC.  Right  now  all  L 
sense  lines  are  disconnected  at  the  ERA-01  because  of 
earlier  troubles  that  were  encountered  when  AC  cross  talk 
would  feed  back  into  the  parallel  digital  interface  and 
destroy  integrated  circuits;  nonetheless,  their  functions 
nave  been  replaced  by  using  a  time-delay  procedure  (in  Tab- 
leSYS.ASM)  called  Pause(x). 

Most  of  the  mechanics  of  the  drum  assay  utilize  control 
lines  5,  6  and  7.  For  example,  invoking  control  line  6 
(relay  K2  energized)  will  activate  a  drum  segment  size 
timer;  the  timer  is  preset  by  rotating  several  thumb-wheel 
switches  on  its  front  face  to  a  desired  setting.  Once  the 
timer  energizes  it  lowers  the  drum  table  platform  until  time 
has  run  out.  Thus,  the  length  of  the  segment  drop  is  lim- 


ited  by  the  setting  on  the  timer  and  remains  constant 
throughout  the  drum  assay  procedure.  Program  fl***  will  then 
issue  commands  to  the  MCA  through  CALIB.BAS  (see  Appendix  H) 
to  start  collecting  data.  Issuing  another  control  6  again 
lowers  the  drum,  and  this  cycle  repeats  until  all  segments 
have  been  analyzed.  Similarly,  control  7  (relay  K1  ener¬ 
gized)  moves  the  drum  table  platform  upwards,  and  control  5 
(relay  K3  energized)  opens  and  closes  the  transmission 
source  shutter. 


TABLE  3.1 

STC  Control  and  Sense  Lines 


|  Control  Line 

EliXEQSS 

I  1 

Turn  A&??  lamp  on.  1 

1  2 

Turn  CALIS  ;  my  on.  | 

I  3 

Turn  INIT  lamp  on, 

4 

Turn  ASSAY  lamp  on. 

5 

Open  transmission  source  shutter  and  turn  SETTER  iam?  on. 

6 

Move  drum  table  downwards. 

7 

Move  drum  table  upwards. 

Sen-e  Line 

1 

Sipals  ABORT  button  has  been  pressed. 

2 

Signals  CAL1B  button  has  been  pressed. 

3 

Sipals  INIT  button  has  been  pressed. 

4 

Sipals  ASSAY  button  has  been  pressed. 

5 

Signals  drum  table  is  advancing. 

1 
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T’ble^yS.ASM. 


TafcleSYS.ASM  is  the  software  driver  for 


the  PIO-24.  It  consists  of  4  public  assembly-language  pro¬ 
cedures  (public  means  the  procedures  are  accessible  fLom 
another  high-level  language).  These  are 

(1)  SetCRconf ig( ) :  initializes  PIO-24  mode,  no 
parameters  are  passed; 

(2)  Set(x):  will  energize  relays  1-7,  pass  numbers 

1-7; 

(3)  Clr(x):  will  turn  off  relays  1-7,  pass  numbers 
1-7; 

(4)  and  Pause(x):  will  suspend  program  execution  for 
1  to  59  seconds.  Procedure  uses  DOS  system  time 
and  is  independent  of  processor  speed,  pass  num¬ 
bers  1-59. 

Appendix  F  lists  the  TableSYS.ASM  source  code,  and  Figure 
3.3  shows  a  flow  chart  of  each  procedure.  More  important, 
however,  is  every  directive  and  instruction  in  the  code  has 
been  commented  should  the  PIO-24  port  addresses  need  to  be 
changed . 

The  "twenty-four"  in  PIO-24  stands  for  24  digital 
input/output  lines.  These  24  lines  are  divided  equally 
among  3  ports:  PA,  PB,  and  PC.  All  ports  are  configured 
input  only  when  the  computer  is  first  turned  on.  However, 
when  DruniTAB . BAS  (see  next  section)  is  started  it  ini¬ 
tializes  the  control  register  on  the  PIO-24  using  the  SetCR¬ 
conf  ig()  procedure.  SetCRconf ig( )  zeroes  the  contents  of 
the  write  latches  (all  ports)  and  configures  PB  as  a  write 
only  port.  Currently  the  PA  and  PC  ports  are  not  used. 
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Functionally,  procedures  Set(x)  or  Clr(x)  drive  the 
PIO-24  by  retrieving  a  2-byte  integer  parameter  placed  onto 
the  stack  segment.  The  variable  x  is  the  parameter  passed, 
and  ranges  from  one  to  seven.  Accessing  the  value  is  the 
same  as  described  in  the  DrumSYS.ASM  section.  The  parameter 
has  a  one-to-one  correspondence  with  control  lines  1  through 
7.  For  instance,  a  value  =  3  means  control  line  3.  Next, 
the  parameter  is  encoded  to  the  relevant  PB  port  relay. 

This  is  accomplished  by  raising  the  number  2  to  the  parame¬ 
ter  power.  For  example,  a  parameter  equal  to  3  is  changed 
to  23  -  8.  The  new  value  is  then  converted  to  an  8-bit 
number  that  corresponds  to  the  PB  port  relay  on  the  ERA-01 
(see  Appendix  J).  Since  there  are  8  PB  port  relays  (0-7) 
and  only  7  control  lines,  each  control  line  is  mapped  (again 
a  one-to-one  correspondence)  to  one  relay.  Hence  a  parame¬ 
ter  =  3  means  control  line  3,  PB  port  latch  bit  3,  and  PB 
port  relay  3,  with  the  byte  number  sent  to  the  ERA-01  equal 
to  00001000  (in  binary). 

That’s  the  way  the  process  should  work,  however,  there's 
one  slight  problem.  When  examining  a  drum  it's  necessary  to 
set  more  than  one  control  line.  Changing  the  sense  of  one 
bit  would  turnoff  the  other  relays  (bit  sense  =0),  so  to 
solve  the  problem  a  copy  of  the  last  command  sent  to  the 
PIO-24  is  saved  in  the  data  segment.  The  symbol  LAST  is  a 
direct  nv"  jry  operand  that  represents  the  address  (segment 
and  offset)  of  the  last  command  byte,  and  is  referred  to  as 
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a  "relay  mask".  In  general,  the  relay  mask  is  formatted  as 
two  4-bit  nibbles.  The  low-order  nibble  (bits  0  through  3) 
corresponds  to  control  lines  1-3.  Likewise,  the  high-order 
nibble  (bits  4  through  7)  corresponds  to  control  lines  4-7. 
In  a  Set(x)  procedure  a  bitwise  logical  OR  on  the  PB  port 
latch  register  (BL  register)  and  relay  mask  is  performed. 
The  new  byte  is  placed  in  the  AL  register  and  sent  out  to 
the  PB  port.  As  a  result,  only  the  relay  that  needs  to  be 
activated  is  turned  on,  or  in  the  case  of  a  Clr(x)  proce¬ 
dure,  the  relay  is  turned  off.  Clr(x)  works  similar  to 
Set(x)  except  it  uses  a  bitwise  logical  AND  on  the  port 
latch  register  and  the  relay  mask. 

Finally,  the  procedure  Pause(x)  is  just  a  time  delay 
with  x  being  the  number  of  seconds  (between  1  and  59)  to 
delay  by.  Since  Pause(x)  uses  DOS  interrupts,  timing  is 
independent  of  processor  type.  Hence  an  AT  style  computer 
would  have  the  same  delay  as  a  386  type  machine.  Mainly 
Pause(x)  serves  as  a  substitute  for  the  sense  lines  that 
were  previously  used  in  the  old  RT-11  BASIC  codes.  The 
purpose  of  the  sense  lines  were  to  let  the  computer  codes 
know  the  STC  was  busy  running  the  drum  table  platform.  As 
an  alternative,  the  programmer  counts  the  number  of  seconds 
for  the  STC  to  perform  a  specific  task  (for  example,  moving 
the  drum  down  one  segment  might  take  5  seconds)  and  inserts 
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the  appropriate  delay  in  his/her  codes  using  Pause(x).  At 
first  it  might  seem  this  appears  like  a  cheap  fix,  however, 
it  works  well  because  of  the  constant  RPM  AC  motors. 

Like  DrumSYS. ASM,  compiling  Tabl eSYS . ASM  into  an  object 
code  is  the  same.  In  addition,  the  two  object  codes  can  be 
linked  together  to  form  one  QuickBASIC  library;  then  all  of 
the  procedures  in  both  codes  are  available  to  DrumTAB.BAS, 
the  menu  program.  Aside,  an  advantage  of  using  assembly- 
language  modules  is  that  they  can  be  interfaced  from  any 
high-level  language  without  requiring  modification  should 
DrumTAB.BAS  be  written  in  another  language. 

The  Central  Menu  Program,  DrumTAB.BAS 

DrumTAB.BAS  is  the  main  program  that  exploits  all  the 
features  that  have  been  talked  about  earlier.  It  can  be 
started  in  the  QuickBASIC  Interpreter  or  compiled  and  linked 
separately  into  an  executable  code,  DrumTAB.EXE,  using  Make- 
Drum  (see  next  section). 

Program  flow  starts,  as  seen  in  Figures  3.4  and  3.5,  by 
setting  the  computer  environment  and  initializing  communica¬ 
tions  with  the  MCA  and  STC.  Once  successful,  the  code 
prints  a  menu  on  the  display  screen  and  then  prompts  the 
operator  for  his/her  input.  Depending  upon  which  case  was 
selected,  the  next  step  executes  appropriate  subroutines  to  *" 
perform  the  desired  task.  In  the  particular  case  of  a  drum 
assay  procedure,  DrumTAB  executes  Set(x)  and/or  Clr(x)  pro- 
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cedures  until  it  reaches  the  subroutine:  Start  Drum  Assay 
Procedure.  Then  program  management  is  transferred  to  an 
include  file  that  controls  MCA  operations,  like  collecting 
ROI  data,  setting  counting  time,  etc.  Other  than  the  excep¬ 
tion  of  the  include  file,  all  operations  are  performed  by 
DrumTAB — in  conjunction  with  its  library  routines. 
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Compiling  and  Linking  Codes  Using  MakeDRUM 

To  simplify  compiling  and  linking  all  codes  necessary  to 
run  DrumTAB. BAS  outside  the  QuickBASIC  Interpreter,  a  short 
code  called  MakeDrum  is  used  to  construct  DrumTAB.EXE. 
Appendix  I  lists  MakeDrum.  It  implements  Microsoft's  Make 
Utility  to  re-compile  and  link  programs  that  have  been  modi¬ 
fied  since  the  last  time  they  were  compiled.  Hence  MakeDrum 
shortens  the  amount  of  time  a  programmer  spends  at  the 
keyboard  writing  assembler  commands,  and  makes  changes  to 
any  of  the  programs  a  cinch  to  do. 
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IV.  Future  Efforts 


The  test  file,  CALIB.BAS,  was  used  as  an  include  file  in 
DrumTAB  to  check  whether  or  not  a  drum  assay  procedure  could 
be  accomplished  with  the  new  hardware  setup.  A  sample  out¬ 
put  from  CALIB.BAS  is  seen  in  Appendix  K.  This  is  similar 
to  the  DEC  print-out  in  Appendix  A.  However,  extra  work  is 
needed  to  correct  the  number  of  counts  under  the  full -energy 
peak  for  absorption/scattering  losses;  also,  no  error  analy¬ 
sis  was  performed.  Hence  two  undertakings,  an  error  analy¬ 
sis  and  addition  of  correction  factors,  must  be  considered 
part  of  a  drum  assay  measurement.  Included  in  Appendix  L 
are  mathematical  derivations  for  the  correction  factors. 
Also,  enhancements  in  the  way  of  mouse  support,  a  split 
screen  graphics  menu,  and  modular  code  design  should  eventu¬ 
ally  be  incorporated.  Nevertheless,  these,  and  the  efforts 
mentioned  above,  are  left  as  suggestions  for  yet  another 
project . 
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V.  Summary 


A  DEC  PDP-11/05  computer  system,  used  in  Canberra’s 
Model  2220B  segmented  gamma  scanner,  was  replaced  with  an 
IBM  PC.  Additional  hardware  for  the  computer  upgrade 
included  installation  of  a  serial/parallel  board,  a  digital 
input/output  board  (PIO-24)  and  an  electromechanical  relay 
board  (ERA-01).  Five  computer  codes  were  written:  Table- 
SYS . ASM ,  DrumSYS . ASM,  DrumSYS.BAS,  DrumTAB.EXE  and  CAL- 
IB.BAS.  TableSYS.ASM  is  a  software  device  driver  for  the 
PIO-24.  DrumSYS. ASM  and  DrumSYS.BAS  are  used  with 
Canberra-supplied  software  for  parallel  data  transfers. 
DrumTAB.EXE  is  a  main  menu  and  control  program,  and  CAL- 
IB . BAS  is  an  include  file  that  interfaces  with  a  Canberra 
Series  35+  multi-channel  analyzer.  A  drum  assay  measurement 
was  accomplished  using  the  above  codes  and  the  hardware 
setup  as  described  in  Chapter  3.  A  sample  print-out  is 
listed  in  Appendix  K.  The  modification  enables  simplified 
programmer  enhancements. 
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Appendix  A:  Sample  Print-out  of  a  Typical  Control  Drum  Measurement 


DIAGNOSTIC  INDICATOR  INFORMATION  FOR  26-JUL-90  AT  15:43:39 
LIVE  TIME:  300  SECONDS 
NEW  LIVE  TIME  (SECONDS): 


CHANNEL 

DATA 

NET  DATA 

CHANNEL 

DATA 

NET  DATA 

948 

219 

61.1 

1101 

61 

3.6 

949 

259 

101.1 

1102 

61 

3.6 

950 

278 

120.1 

1103 

68 

10.6 

951 

215 

57.1 

1104 

48 

-9.4 

952 

236 

78.1 

1105 

48 

-9.4 

953 

259 

101.1 

1106 

75 

17.6 

954 

27779 

121.1 

1107 

54 

-3.4 

955 

357 

199.1 

1108 

67 

9.6 

956 

516 

358.1 

1109 

60 

2.6 

957 

1846 

1688.1 

1110 

83 

25.6 

958 

8357 

8199.1 

1111 

164 

106.6 

959 

28009 

27851.1 

1112 

251 

193.6 

960 

51021 

50863.1 

1113 

274 

216.6 

961 

42261 

42103.1 

1114 

180 

122.6 

962 

14338 

14180.1 

1115 

82 

24.6 

963 

1974 

1816.1 

1116 

57 

-.400002 

964 

243 

85.1 

1117 

47 

-10.4 

965 

143 

-14.9 

1118 

51 

-6.4 

966 

125 

-32.9 

1119 

67 

9.6 

967 

110 

-47.9 

1120 

47 

-10.4 

968 

93 

-64.9 

1121 

42 

-15.4 

969 

88 

-69.9 

1122 

39 

-18.4 

970 

100 

-57.9 

1123 

49 

-8.4 

971 

99 

-58.9 

1124 

59 

1.6 

972 

91 

-66.9 

1125 

64 

6.6 

152328 

2263 

GROSS  AREAS 

146801 

655.8  NET  AREAS 

BKG  LOW  SIDE  =241.4 

BKG  LOW  SIDE 

=  57.2 

BKG  HIGH  SIDE  =74.4 

e:;g  high  side 

:  =  57.6 

AVERAGE  BKG 

=  157.9 

AVERAGE  BKG  = 

57.4 

LIVE  TIME  =  300  SECONDS 
TRUE  TIME  =  312  SECONDS 
DEAD  TIME  =  3.84615% 


CS-137  PARAMETERS 
MAX  CHAN  =  960 
MAX  DATA  =  50563.1 


PU-238  PARAMETERS 
MAX  CHAN  =  1113 
MAX  DATA  =  216.6 
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Appendix  B:  Listing  of  CONFIG.SYS 


device=msmouse.sys  /I 

file$=25 

buffers=25 

DEVICES  :\REMH.  SYS 

DEVICE=C : \SHARTDRV , SYS  256  /a 

break  on 

device=c : \dos\ansi . sys 
device=c:\toolkit\bins.com  /3 
dei,ice=c:\toolkit\icas.com  /2 
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Appendix  C:  Listing  of  AUTOEXEC.BAT 


prompt  $p$g 

path=c  :\;c:\nc;c:\iips;c:  \dos ;  c :  \util ;  c :  \nor  ton ;  c :  \windows ;  C :  \NBACKUP ;  C :  \T00LKIT;  C :  \bin 
set  NBACKUP=C:\NBACKOP 
C:\TOOLKIT\SETMCA  1200, E, 7,1 

C:\QB45\QB.EXE  C:\QB45\THESIS\drumtab.BAS  /I  C:\QB45\THESIS\drumtab.QLB 
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Appendix  D:  Listing  of  DrumSYS.ASM 


;  Pile  called  DrumbYS.ASH,  used  for  parallel  data  transfers. 
;  Replaces  Canberra  BINSTUFP.ASK 
;  Hake  into  an  object  code  (DrumSYS.OBJ)  by  running  HASH 
;  For  example,  at  DOS  prompt  type:  HASH  DrumSYS.ASH 
;  Last  written  on  7  Oct  90  by  C.  Irvine 


.286 

;  286  processor  directives 

.SEQ 

;  order  segments  as  they  appear 

PRAKE  struc 
SAVEDS  DR 

V 

;  word  (2  bytes)  copy  of  DS  register 

SAVEBP  DW 

;  word  (2  bytes)  copy  of  BP  register 

RETADDR  DD 

•} 

;  double  word  (4  bytes)  return  address 

I ARRAY  DD 

■j 

;  double  word  (4  bytes)  address  of  data 

FRAME  ends 

;  block  array 

Data_Seg 

Segment  Public  'DATA* 

Data_Seg 

ends 

Code_Seg 

Segment  Public  ‘CODE' 

Assume  CS : Code_Seg , DS : Data _Seg, SS : Bat a_Seg 

DEVICE 

db  'BIHl',0 

;  ASCIIS  string  for  BINS.COH 

PILEHANDLE 

dw  ? 

;  Pile  handle 

public  OPENBI 

OPENBI 

proc  far 

push  bp  ; 

save  "framepointer” 

push  ds  ; 

save  DS 

mov  ax,  Code_Seg  ; 

mcv  ds,  ax 

initialize  DS  register 

mov  dx,  OPPSET  DEVICE 

;  load  address  of  DEVICE  into  DX 

mov  ah,  61d 
mov  al ,  128d 
int  33d 

For  INT  21/3D  Open  File 

jc  OPENBINdone 

jump  out  of  here  if  error 

mov  PILEHANDLE,  ax 

save  Pile  handle 

mov  bx,  ax  ; 

get  Pile  handle  Rem:  still  in  ax 

mov  ax,  44Glh 

For  INT  21/44/01  IOCTL:  Set  Device 
Information 

mov  di,  96d  ; 

int  33d 

End  of  file  OFP,  binary  mode 

OPEKBINdone: 

pop  ds 
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pop  bp 
ret 

OPENBI  endp 

public  INBIN 

INBIN  proc  far 

push  bp  ;  save  frampointer 

push  ds  ;  save  DS 

mov  ax,  Code_Seg  ;  initial iie  DS  register 
bov  ds,  ax 

mov  as,  FILEHANDLE  ;  save  FILEHANDLE 
mov  bp,  sp  ;  set  stack  framepointer 

Ids  dx,  [bpj.IABSAY  ;  store  segment  address  in  DS  and 
;  offset  address  in  DX 

mov  si,  dx  ;  point  to  offset  address 

mov  ex,  [si]  ;  get  channel  count 

add  cx,  cx 

add  ci,  cx  ;  convert  to  byte  count 

mov  bx,  FILEHANDLE  ;  get  file  handle 
mov  ah,  63d 

int  33d  ',  INT  21/3F  reads  handle  and  transfers 

;  CX  bytes  to  buffer 

pop  ds 
pop  bp 

ret  4  ;  remember:  byte  count  =  4  long  integer 

IKBIN  endp 


public  OPEKBO 

OPENBO  proc  far 

push  bp 
push  ds 

mov  ax,  Code_Seg  ;  initialixe  DS  register 

mov  ds,  ax 

mov  di,  OFFSET  DEVICE 
mov  ah,  3dh  ;  open  file 

mov  al,  Slh  ;  write  access 

int  21h 

jc  OPEh'BQUdone  ;  jump  out  of  here  if  error 

mov  FILEHANDLE,  ai 

mov  bx,  ax  :  get  file  handle 

mov  ax,  4401h  ;  IOCTL  set  device 

mov  dx,  QQ96d  ;  EOF  off,  binary  on 

int  33d 

OPENBQUdone: 

pop  ds 
pop  bp 
ret 

OPENBO  endp 
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public  OUTBIN 
proc  far 
push  bp 
push  ds 

mov  ax,  Code_Seg  ;  initialize  DS  register 

mov  ds,  ax 

nov  ax,  FILEHAHDLE 

mov  bp,  sp 

Ids  dx,  [bp] . IRHRAY 

mcv  si,  dx 

mov  cx,  [si] 

add  cx,  2 

add  cx,  cx 

add  cx,  cx 

mov  bx,  FILEHAHDLE 

mov  ah,  64d  ;  write 

int  33d 

pop  ds 
pop  bp 
ret  4 
endp 

public  CLOSEB 
proc  far 
push  bp 
push  ds 

mov  ax,  Code_Seg  ;  initial ire  DS  register 

mov  ds,  ax 

mov  bx,  FILEHAHDLE 

nov  ah,  62d  ;  close 

int  33d 


Appendix  E.*  Listing  of  DrumSYS.BAS 


; 


OPTION  BASE  1 

DECLARE  SUB  OPENBI 

DECLARE  SUB  INBIN  (IAR  AS  LONG) 

DECLARE  SUB  OUTBO 

DECLARE  SUB  OUTBIN  (BYVAL  segaddr  AS  INTEGER,  BYVAL  addr  AS  INTEGER) 

DECLARE  SUB  CLOSEB 

DECLARE  SUB  DisplayTopLevelHenu  (ICON!,  Total Connands!) 

DECLARE  SUB  DisplayHeraoryRangeOptions  (MEHl) 

DECLARE  SUB  ReadOutSpectrum  {) 

DECLARE  SUB  OpenDrivers  () 

DECLARE  SUB  CloseDrivers  () 

DECLARE  SUB  CursorPosition  (row!,  col!) 

DECLARE  SUB  PositionCursor  (row!,  col!) 

DECLARE  SUB  SetDispl ay Colors  () 

DECLARE  SUB  GetlnputAndCheck  (row!,  col!,  lower!,  upper!,  VALUE$) 

DECLARE  SUB  TimerDelay  () 

DECLARE  SUB  SendSpectrua  () 

DECLARE  SUB  PCutility  () 

• 

'  The  following  is  a  sample  QuickBASIC  program  which  will  perform  data 

'  transfers  using  the  serial  PC  interface  for  coranands  and  the  Fast  IBM 

'  parallel  interface  for  data  transfer. 

« 

'  This  program  uses  the  HCAS.COM  serial  driver  and  BINS.COH  parallel  driver 

'  for  communicating  with  the  serial  and  parallel  interfaces  of  the  MCA. 

'  This  program  requires  DrumSYS.QLB  (a  Quick  Library  containing  several 

'  subroutines  which  will  communicate  with  the  parallel  interface  using 

’  the  parallel  driver  BINS.COH)  be  loaded  while  in  the  QuickBASIC  environment, 

'  The  cosmand  to  load  the  library  from  DOS  is 
» 

'  C:\QB45\QS.EXE  /I  C:\QB45\THESIS\DrumSYS.QLB 

I 

'  NOTE:  The  use  of  this  program  requires  the  following  interfaces  be  installed: 
« 

'  Model  3575  PC  Interface  for  serial  communications 
'  Model  3576  Fast  IBM  Interface  for  parallel  data  transfers 


VERY  IMPORTANT:  This  code  is  a  modified  version  of  FASTRAN  source  code 
from  Canberra  Industries,  Inc. 

**t**tt*ftttt*ttftt**ttt*tttt***t**t*t*tt*t*ittttttt*ttit*tt*t*t*t**tttt*t*tt 

PROGRAM  DrumSYS.BAS 

'  Set  lower  subscript  to  1,  as  in  FORTRAN 
'  Failure  to  define  IAR  as  long  (4  bytes)  may  cause  an  error 
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DIK  SHARED  IAR(8194)  AS  LONG 
COHHON  SHARED  DATAPile  AS  STRING  *  11 
COHHON  SHARED  HCAIN  AS  STRING  *  5 
COMMON  SHARED  MCAOUT  AS  STRING  *  6 
COHHON  SHARED  ESC$ 

ESC$  =  CHR$(27) 

CALL  SetDisplayColors 
CALL  OpenDrivers 
BEEP 
DO 

CALL  DisplayTopLeveIHenu(ICOH,  Total Comands) 

IP  (ICOH  =  1)  THEN 

CALL  PCutility 
ELSEIP  (ICOH  =  2)  THEN 

CALL  ReadOutSpectrum 
ELSEIP  (ICOH  =  3] I  THEN 

CALL  SendSpectrum 

END  IP 

LOQP  WHILE  ICOH  <>  Total Cossands 
CALL  CloseDrivers 
END 

SOB  CloseDrivers 
'  Close  all  drivers 
RESET 


END  SOB 

SOB  CursorPosi  .ion  (row,  col) 

row  =  CSRLIN 
col  =  POS(x) 

END  SOB 

SOB  DisplayHesaoryRangeOptions  (HEM%) 

'  Display  memory  range  options. 

CALL  PositionCursor{row,  col) 

PRINT  TAB(col);  "Select  Memory  Range  Options’* 
PRINT  "  " 

PRINT  TAB(col);  "  I  =  Pull  Memory" 

PRINT  TAB(col);  "  2  =  Pirst  Half" 

PRINT  TAB(col);  "  3  =  Second  Half" 

PRINT  TAB(col);  "  4  =  Pirst  Quarter" 

PRINT  TAB(col);  "  5  =  Second  Quarter" 
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PRINT  TRE(col);  "  (  =  Third  Quarter" 

PRINT  TAB(col);  "  7  =  Fourth  Quarter" 

PRINT  "  H 

PRINT  TAB(coI);  "Enter  Memory  Range>  TAB(coI  +  21); 

CALL  CursorPosition(row,  col) 

CALL  GetInputAndCheck(row,  col,  1,  7,  VALUES) 

HEKI  =  VAL( VALUES):  'Cosnand  Input. 


END  SUB 

SUB  DisplayTopLevelHenu  (ICON,  Total  Commands) 

*  Display  the  top  level  menu. 

Total Cocrnands  =  4:  'maximum  number  of  commands  available  to  user 
CALL  PositionCursor(rov,  col) 

'Print  menu  screen 

PRIST  TAB(col);  "HOUND  MCA  Ccecunicaticns  Program" 

PRINT  TAB (col);  "Todays  Date:  ";  DATES 
PRINT  "  " 

PRINT  TAB(coI);  “1  =  Run  FCUTIL.BAS" 

PRINT  TAB(col);  "2  =  Read  out  spectrum  from  MCA" 

PRIST  TAB(col);  "3  =  Load  spectrum  into  MCA" 

PRINT  TAE(col);  "4  =  Eiit  Program" 

PRINT  "  " 

PRINT  TAB(col);  "CHD>  TAB(coI  +  7); 

CALL  CursorPositionf.row,  col):  ’find  location  of  cursor 
CALL  GetInputAcdCheck{row,  col,  1,  Total  Commands,  VALUES) 

ICGH  -  VAL(VALUES):  'Command  Input 


SOB  GetlnputAndCheck  (row,  col,  lower,  upper,  VALUES) 

'Input  data  from  keyboard 
'Loop  until  a  correct  entry  is  found 
'Row  and  column  indicate  cursor  location 
'Lower  and  Upper  are  range  values 
'ValueS  is  the  keyboard  input 


DO 

LOCATE  row,  col: 
INPUT  ;  "",  VALUES: 
LOCATE  row,  col: 
PRINT  SPC(2Q);  : 


'Position  cursor 
'Read  coman d  input. 

' Position  cursor  to  original  location 
'Erase  old  information 


'Check  to  see  if  keyboard  input  is  any  good 

LOO?  UNTIL  (VAL( VALUES))  >=  lower  AND  (VAL'VALUSS))  <-  upper 
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END  SUB 


SUB  OpenDrivers 

'  The  following  lines  open  the  drivers  for  the  MCA  interface  and 
'  initialize  MCA  communications. 

'  Note:  MCAIN  and  MCAOUT  are  devices  used  for  MCA  communication, 

'  they  are  not  "ordinary"  files.  If  the  device  drivers  MCAS.COM 
'  and  BINS.COM  are  not  set  in  CONFIG.SYS,  an  error  will  occur. 

'Print  message  to  operator 
1  CALL  PositionCursor(row,  col) 

'  PRINT  TAB(col);  "Set  MCA  to  REMOTE  position!" 

'  CALL  TimerDelay.  '  2  second  delay 

OPEN  "C:\QB45\THESIS\MCAOUT"  FOR  OUTPUT  AS  <2 
'  PRINT  #2,  ESCfi;  "INT  '  Initialize  MCA 

'  CALL  TimerDelay:  '  2  second  delay 

'Set  MCA  communications  for  XON,XOFF  enabled,  ASCII  transmission, 
'CR  separator  and  terminator,  no  delay,  keyboard  enabled. 

PRINT  12,  ESC$;  "SET  0;  0;  1;  0;  0;  1  *" 

PRINT  *2,  ESC$;  "IDM  It":  '  Command  for  MCA  to  send  I.D.  number 

OPEN  "C:\QB45\THESIS\MCAIN"  FOR  INPUT  AS  jfl 

'  If  the  MCA  does  not  respond  and  an  error  condition  occurs  on 
'  the  nezc  command,  press  the  INDEX  and  HOME  keys  (on  the  MCA) 

'  simultaneously  to  clear  the  MCA  and  enable  handshaking. 

INPUT  <1,  Host$ :  '  Get  host  identification  number  and  display. 

CALL  Position  ,rsor(row,  col) 

PRINT  TAB(col);  "Host  communications  established" 

PRINT  TAB(col);  Host$ 

CALL  TimerDelay:  '  2  second  delay 


END  SUB 

SUB  PCutility 

'  Run  PCUTIL.BAS 

CLOSE  ill 
CLOSE  12 

CHAIN  "C:\gb45\thesis\PCUTILQB" 


END  SUB 

SUB  PositionCursor  (row,  col) 
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CLS 

LOCATE  8,  20,  1,  6,  7:  'Moves  cursor  to  middle  of  screen 
row  =  8 
col  =  20 

END  SUB 

SUB  ReadOutSpectrum 

'  Read  spectrum  from  MCA  and  store  in  data  file 

'  Display  Memory  Range  Options  for  M 

CALL  DisplayMemoryHangeOptio  SM%) 

'  Request  data  file  name  to  send  data  to. 

CALL  PositionCursor(row,  col) 

PRINT  TAB(col);  "Read  spectrum  from  MCA" 

PRINT  TAB(col);  "  M 

PRINT  TAB(col);  "Enter  Data  Pile  Name  >";  TAB(col  +  23); 
LINE  INPUT  DATAFile:  'Data  file  name 

'  Send  MCA  conmand  to  get  number  of  channels  in  memory  range. 

PRINT  12,  ESC$;  "MEM  MEM%;  T 

'  Read  memory  range  channel  value  sent  from  MCA 

INPUT  #1,  MSIZE% 

'  Send  command  to  MCA  for  parallel  transfer. 

PRINT  #2,  ESC$;  "D0U1;  2;  0;  MEM%;  T 
'  Cali  subroutine  to  open  parallel  driver  for  input  from  the  MCA. 
CALLS  OPE 

'  The  first  2  value.,  of  the  array  are  the  number  of  channels 
'  of  data  being  transferred  ar.d  the  start  channel.  Read  these 
'  values  in  using  the  INBIN  subroutine. 

i  =  1 

IAR(i)  =  2 
CALLS  INBIN(IAR(i)) 

'  The  parallel  driver  will  transfer  data  in  256  channel  groups. 

'  Set  up  a  loop  to  read  in  all  of  the  data  in  256  channel  groups. 


E-5 


FOR  i  =  1  TO  IAR(l)  -  255  STEP  256 
IAR(i  +  2)  =  256 
CALLS  INBIN{IAR{i  +2)) 

NEXT  i 

'  Close  parallel  driver. 

CALLS  CLOSEB 

'  Send  signal  to  stop  READ  OUT,  otherwise  HCA  might  hang. 

PRINT  *2,  ESC$;  MABT  *M 

'  Write  data  to  data  file. 

OPEN  MC:\qb45\thesis\M  4  DATAFile  FOR  OUTPUT  AS  *3 

'  LOTUS  can  handle  a  maximum  of  2048  records.  Store  the  data  in 
'  groups  of  2048  channels.  Thi«  file  will  hold  a  8192  channel  spectrum. 

FOR  i  =  3  TO  2050 

PRINT  13,  USING  Nt«|«|«(««N;  IAR(i) ;  IAR(i  4  2048);  IAR(i  4  4096);  IAR(i  4  6144) 
NEXT  i 

'  Close  data  file. 

CLOSE  *3 


END  SUB 

SUB  SendSpectrum 

'  Send  a  spectrum  to  HCA 

'  Display  Hemory  Range  Options  for  HCA 

CALL  DisplayHemoryRangeOptions(HEH%) 

'  Get  data  file  name  and  open  file. 

CALL  PositionCursor(row,  col) 

PRINT  TAB(col);  "Send  a  spectrum  to  HCA" 

PRINT  TAB(col);  H  " 

PRINT  TAB(col);  "Enter  Data  File  Name  >";  TAB(col  4  23); 

LINE  INPUT  DATAFile:  'Data  file  name 

OPEN  "C:\qb45\thesis\"  4  DATAFile  FOR  INPUT  AS  |3 

1  Read  data  into  array. 

FOR  i  =  3  TO  2050 

INPUT  13,  IAR(i),  IAF(i  4  2048),  I AR( i  4  4096),  IAR(i  4  6144) 
NEXT  i 
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'  Send  MCA  command  to  get  number  of  channels  in  memory  range. 

PRINT  12,  ESC$;  "HEM  MEH%;  T 
'  Read  memory  range  channel  value  sent  from  MCA 
INPUT  *1,  MSIZE% 

'  Send  coitmand  to  MCA  for  parallel  readin. 

PRINT  12,  ESC$;  "DINl;  2;”;  MEM%;  T 
'  Write  spectrum  into  MCA 

'  Open  the  open  parallel  driver  for  output  from  the  CPU  to  MCA. 
CALLS  OPENBO 

'  The  first  2  values  of  the  array  are  the  number  of  channels 
'  of  data  being  transferred  and  the  start  channel .  Set  the  first 
*  array  value  to  the  It  of  channels  being  transferred.  The  second 
'  value  should  be  0. 

IAR(l)  =  MSIZE% 

IAR(2)  =  0 

CALL  OUTBIN(VARSEG(IAR(l)),  VARPTR{ IAR( 1 ) ) ) 

'  Close  parallel  driver. 

CALLS  CLOSEB 

'  Send  signal  to  stop  READ  IN,  otherwise  MCA  might  hang. 

PRINT  *2,  ESC$;  ”ABT  f" 

'  Close  file. 

CLOSE  *3 

END  SUB 

SUB  SetDisplayColors 
CLS 

COLOR  14,  1 

END  SUB 
SUB  TimerDelay 

'  2  second  time-delay  routine 
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xl  =  TIMER 

LOOP  UNTIL  ABS(x  -  xl)  >=  2 


Appendix  F:  Listing  of  TableSYS.ASM 


File  called  TableSXS.ASH,  used  to  control  PIO-24  card. 

Replaces  CANBERRA/DEC  ALR  functions  that  control ed  the 
motion  control  interface. 

Hake  into  an  object  code  (TableSIS.OBJ)  by  running  HASH. 

Created  by  C.  Irvine,  Oct  90.  Last  edited  Nov  90  for  PIO-24  upgrade. 


Contains  the  following  PUBLIC  procedures: 


SetCRconf ig{ ) : 
Set(x): 

Clr(x): 

Pause(x): 


initializes  PIO-24  mode,  no  parameters  passed 
will  energize  relays  1-7,  pass  numbers  1-7 
will  turn  off  relays  1-7,  pass  numbers  1-7 
will  suspend  program  execution  for  1  to  59  seconds, 
procedure  uses  DOS  system  time  and  is  independent  of 
processor  speed,  pass  numbers  1-59 


Data_Segl 

Last 

Data.Segl 

Code_Segl 


SetCRconfig 


SetCRconfig 


.286  ;  286  processor  directives 

,SEQ  ;  order  segments  as  they  appear 

Segment  Public  'DATA' 

DB  ?  ;  1  byte,  last  comnand 

ends 


Segment  Public  'CODE' 

Assume  CS : Code_Segl , DS : Data_Segl , SS : Data_Segl 


public  SetCRconfig 
proc  far 
push  ds 
push  ax 
push  dx 

mov  ax,Data_Segl 
mov  ds,ax 
mov  dx,0307h 
mov  al,01h 
out  dx,al 
xor  al,al 
mov  Last,al 
call  TimeDelay 
pop  dx 
pop  ax 
pop  ds 
retf 
er.dp 


;  write  mode  to  control  register 
;  save  DS 
;  save  registers 

;  initialize  DS  register 
;  use  Data_Segl 
;  Control  port  number  307  hex 
;  PB  output,  PCO-3  input 
;  write  to  control  register 
;  clear  low  register 
;  set  Last  equal  to  0 
;  set  .5  sec  delay 
;  restore  registers 

;  restore  DS 
;  return 
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Set 


public  Set 

proc  far  ; 

push  bp  ; 

mov  bp,sp  ; 

push  ds  ; 

push  at  ; 

push  bz 
push  cx 
push  dz 

mov  bz, [bp+6]  ; 

mov  cx,[bx]  ; 

mov  ax,Data_Segl  ; 
mov  ds,az  ; 

call  Check_data  ; 

jnz  short  Set_depart 

mov  bz,01h  ; 

shl  bx,cl  i 

mov  al,Last  ; 

or  al,bl  ; 

mov  dx,0305h  ; 

out  dz,al  ; 

mov  Last,al  ; 

call  TimeDelay  ; 

Set_depart: 

pop  dz  ; 

pop  cx 
pop  bz 
pop  az 

pop  ds  ; 

pop  bp  ; 

retf  2  ; 

Set  endp 

TimeDelay  proc  near  ; 

push  az  ; 

push  bz 
push  cz 
push  dz 

mov  ah,2Ch  ; 

int  21h 

mov  bl,dl  ; 

delayjoop: 

mov  ah,2Ch 

int  21h  ; 

cmp  dl,bl  ; 

jns  short  TD  sip  ; 
adddUOOd  ; 


set  output  latch,  i.e.,  PB  port 
save  "framepointer" 

BP  now  points  to  old  BP 

save  DS 

save  registers 


get  address  of  parameter  passed 
get  value  of  2-byte  parameter 
initialize  DS  register 
use  Data_Segl 

see  if  parameter  is  any  good 

if  no  good,  depart  procedure 
BX  =  1 

BX  =  2  to  power  of  CX 
return  value  is  in  BX 
get  last  command 

change  only  the  port  that  needs  to  be 
set 

PB  port  address 

write  to  PB  port 

save  last  coitmand 

wait  500  ms  for  relay  to  energize 

restore  registers 


restore  DS 

restore  "framepointer" 
return,  and  restore  2  bytes 


500  millisecond  time  delay 
allows  relays  to  energize 
save  registers 


get  system  time 

save  hundredths  of  seconds  in  bl 


get  system  time  again 
set  sip  flag 

unsiped  number?  if  so,  go  jump 
make  siped  number  unsiped 


sub  dl,bl  ; 

cmp  dl,50d 

jle  delayjoop 

pop  dz 

pop  cz 

pop  bz 

pop  az 

retn 

TimeDelay  endp 

public  Clr 

Cl  r  proc  far 

push  bp 
mov  bp,sp 
push  ds 
push  az 
push  bz 
push  cz 
push  dz 
mov  bz,[bp+6] 
mov  cz,[bz] 
mov  az,Data_Segl 
mov  ds,az 
call  Check_data 
jnz  short  Clrjiepart 

mov  bz,01h 
shi  fcx.d 

not  bz 
mov  dx,03Q5h 
mov  al ,Last 
and  al,bl 

call  TimeDday 
out  dx,al 
mov  Last,al 
call  TimeDelay 

Clr_depart: 

pop  dz 
pop  cz 
pop  bz 
pop  az 
pop  ds 
pop  bp 
retf  2 

Clr  endp 


dl  =  dl  -  bl 

is  new  system  time  >  .5  sec 
if  no,  then  loop  again 
restore  registers 


okay,  500  ms  has  passed 


clear  output  latch,  i.e.,  PB  port 
save  "framepointer" 

BP  now  points  to  old  BP 

save  DS 

save  registers 


get  address  of  parameter  passed 
get  value  of  2-byte  parameter 
initialize  DS  register 
use  Data_Segl 

see  if  parameter  is  any  good 

if  no  good,  depart  procedure 
BX  =  1 

BX  =  2  to  power  of  CX 
return  value  is  in  BX 
reverse  sense  of  bit  mask 
PE  port  address 
get  last  command 

change  only  the  port  that  needs  to  be 
cleared 

wait  500  ms  before  setting  relay 
write  to  PB  port 
save  last  command 

wait  500  ms  for  relay  to  deenergize 
restore  registers 


restore  DS 

restore  "framepointer" 
return,  and  restore  2  bytes 
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Check_data  proc  near 

push  ax 
push  cx 
push  dx 
mov  ax,cx 
mov  cx,07d 

check_again: 

crop  ax,cx 
jx  short  goodjiata 
loop  check_again 

mov  dl,7d 
roov  ah,2h 
int  21h 

good_data: 

pop  dx 
pop  cx 
pop  ax 
retn 

Check_data  endp 


;  checks  input  parameters  against  1-7 
;  save  registers 

;  note:  value  to  be  verified  is  in  CX 
;  put  parameter  in  AX 
;  check  numbers  1-7 

;  is  parameter  any  good? 

;  if  okay,  get  out  of  here 
;  if  not,  go  back  and  try  again 
;  bad  parameter?,  rero  flag  not  set 
;  sound  bell  by  writing  chr$(7) 

;  display  output 
;  go  beep  bell 

;  restore  registers  and 
;  put  CX  back 

;  return 


public  Pause  ;  1  to  59  second  time  delay 
Pause  proc  far 

push  bp  ;  save  "framepointer" 

mov  bp,sp  ;  point  to  old  value  of  BP 

push  ds  ;  save  registers 

push  ax 

push  bx 

push  cx 

push  dx 

mov  bx,[bp+6]  ;  get  number  of  delay  seconds 

mov  cx,[bx]  ;  CX  holds  value 

mov  ax,Data_Segl  ;  switch  over  to  different  data  segment 
mov  ds,ax  ;  changeover  complete 

mov  ax,cx  ;  better  put  value  in  AX 

mov  cx,59d  ;  load  counter  with  59  sec  maximum 

Pause_check_again:  ;  okay,  let's  get  system  time 

cmp  ax,cx  *  ;  first,  check  and  see  if  value  =  59 

jx  short  Pause_good_data 

;  if  good  value,  move  on 
loop  Pause_check_again 

;  if  bad  value,  then  decrement 
;  counter  and  check  again 

mov  dl,7d  ;  beep  bell  if  value  is  no  good 

mov  ah,2h 
int  21h 

Pause_good_data: 

jnx  short  Pause_depart 

;  remember,  if  bad  value  get  out  of  here 
;  save  value  in  BL 
;  go  get  system  time  (DOS) 


mov  bl,al 
mov  ah,2ch 
int  21h 
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) 

Pause_delay_loop: 


Pause_sign: 


Pause_depart: 


Pause 

Code_Segl 


mov  bh,dh 

mov  ah,2ch 
int  21h 
xor  ci,cx 
mov  cl,dh 
cmp  cl,bh 

jns  short  Pause_sign 
add  cl,60d 

sub  cl,bh 
cmp  cl  ,bl 

jle  Pause_delay_Ioop 

pop  dx 
pop  cx 
pop  bx 
pop  ax 
pop  ds 
pop  bp 
retf  2 
endp 

ends 

end 


;  save  current  It  of  seconds  in  BH 
;  let's  get  system  time  again 
;  now  clear  CX 

;  save  present  I  of  seconds  in  CL 
;  check  the  difference  in  sign 

;  if  signed,  compensate  by  adding  60 
;  rem,  DH  returns  0  to  59  seconds 
;  if  unsigned,  continue  with 
;  verification 

;  get  magnitude  or  difference 
;  well,  is  it  greater  than  value? 

;  if  no,  go  back  and  get  new  time 
;  if  yes,  get  out  of  here 
;  restore  registers 


;  return  the  stack  to  normal 


F-5 


Append ix  G:  Listing  of  DrumTAB.BAS 


DEPINT  X 

DECLARE  SOB  DisplayTopLevelHenu  (TotalCommands!) 

DECLARE  SUB  StartDruraProcedure  () 

DECLARE  SUB  EnterDataFil eNaae  {) 

DECLARE  SUB  DisplayHeraoryRangeQptions  () 

DECLARE  SUB  EnterDrumID  {) 

DECLARE  SUB  HalfSegmentDrop  {) 

DECLARE  SUB  CloseShutter  {) 

DECLARE  SUB  LowerDrumTabl e  {} 

DECLARE  SUB  PrintHessageToOperator  () 

DECLARE  SOB  RaiseDrumTable  {) 

DECLARE  SUB  OpenShutter  (} 

DECLARE  SUB  Calibration  () 

DECLARE  SUB  Initialize  () 

DECLARE  SUB  Assay  () 

DECLARE  SUB  OUTBIN  (BYVAL  segaddr  AS  INTEGER,  BYVAL  addr  AS  INTEGER) 

DECLARE  SOB  SetCReonfig  {) 

DECLARE  SUB  Set  {i  AS  INTEGER) 

DECLARE  SUB  Cl r  (x  AS  INTEGER) 

DECLARE  SUB  Pause  (x  AS  INTEGER) 

DECLARE  SUB  ReadOutSpectrum  () 

DECLARE  SUB  OpenDrivers  {) 

DECLARE  SUB  CloseDrivers  {) 

DECLARE  SUB  CursorPosition  (row!,  col!) 

DECLARE  SUB  PositionCursor  {row!,  col!) 

DECLARE  SUB  SetDisplayColors  {) 

DECLARE  SUB  GetlnputAndCheck  {row!,  col!.  Lower!,  upper!,  VALUES) 

DECLARE  SUB  HessagepGsitioningBrumTabl e  {) 

DECLARE  SUB  TimerBelay  () 

DECLARE  SUB  SendSpectrum  {) 

DECLARE  SUB  PCutility  () 

DECLARE  SUB  SetPI024  {) 

• 

'  The  following  is  a  sample  QuickBASIC  program  that  performs  data 
'  transfers  using  the  serial  PC  interface  for  commands  and  the  Past  12M 
*  parallel  interface  for  data  transfer.  Also,  the  program  will  execute 
'  drum  assay  measurements  while  controlling  operation  of  the  CANBERRA 
'  drum  table  and  scan  table  contoller. 

f 

'  This  program  uses  the  HCAS.COM  serial  driver  and  BINS.COM  parallel  driver 
'  for  communicating  with  the  serial  and  parallel  interfaces  of  the  MCA. 

'  This  program  requires  DrumSYS.QLB  {a  Quick  Library  containing  several 
'  subroutines  which  will  consunicate  with  the  parallel  interface  using 
'  the  parallel  driver  BINS. COM)  be  loaded  while  in  the  QuickBASIC  environment. 
'  In  addition,  this  program  uses  assembly-language  procedures  to  control  the 
'  scan  table  controller.  The  procedures  are  located  in  the  library  called 
'  TableSIS.QLB. 

t 

'  Both  libraries,  DruaSi’S.QLB  and  TableSYS.QLE,  have  been  merged  into  one 
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Quick  Library  called  DrumTAB.QLB.  DrumTAB.QLB  was  created  with  the 
command 

C:\QB45\LIKK  DrumSYS.OBJ+TableSYS. OBJ, DrumTAB,, C:\QB45\BQLB45. LIB  / q  /co 
The  command  to  load  the  library  from  DOS  is 

C:\QB45\QB.EXE  /I  C:\QB45\THESIS\DrumTAB.QLB 
To  make  ErumTAB.BAS  into  an  executable  file: 

1.  First  save  the  file  as  a  text  file,  i.e.,  ASCII. 

2.  Convert  the  file  into  an  object  code  with  the  cosnand 
C:\QB45\BC  Dr umTAB , Dr umTAB , Dr umTAB  /xi 

3.  Convert  PCUTILQB.BAS  to  an  executable  file 

C:\QE45\BC  PCOTILQB.BAS  /xi  /v  /i  /w  /o 

LINK  PCUTILQB.OBJ,PCUTILQB,, C:\QB45\BC0H45.LIB  /co 

4.  Kelt  make  a  library  with  the  assembl y-language  procedures 
C:\QB45\LIB  Brus^AB.LIBtDrumSYS.OEJ+Tabi eSYS.OBJ  /co 

5.  Link  DruxffAB.OBJ  with  the  comar.d 

C:\QB45\LINK  DrumTAB,,, C:\QB45\BC0M45.LIB  +  DrumTAB. LIB  /co 

the  /xi  let’s  one  use  Code_View 
the  /co  let’s  one  use  Codejfiew 

the  /v  / w  / i  options  enables  event  trapping  and  indicates  the 

presence  of  OK  ERROR  with  RESUME  or  RESUME  NEXT 

the  /o  creates  a  stand-alone  .EXE  program  that  doesn't  need 

BRUN45.LIB 

6.  Run  the  program  by  typing 
DriETAE 

Note:  To  use  Code_View  type  CV  DrumTab 


NOTE:  The  use  of  this  program  requires  the  following  interfaces  and 
equipment  be  installed: 

Model  3575  PC  Interface  for  serial  com-, unications 
Model  3576  Past  IBM  Interface  for  parallel  data  transfers 
PIG-24  High  Output  Current  Parallel  Digital  Interface 
ERA-01  Electromechanical  8  Channel  SPDT  Relay  Board. 

Model  2225B  Scan  Table  Ccntoller 
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CANBERRA  Series  35  Plus  MCA 


VERY  IMPORTANT:  This  code  includes  a  modified  version  of  FASTRAN  source 
code  from  CANBERRA  Industries,  Inc. 

**tm**tt*tt*ttit**tt*t*ttt**tttt*m*mmm*mtt*tttttt**mtt***tttt* 


PROGRAM  DrumTAB.BAS 

'  Set  lover  subscript  to  1,  as  in  FORTRAN 
'  Failure  to  define  IAR  as  long  (4  bytes)  may  cause  an  error 

OPTION  BASE  1 

DIM  SHARED  IAR(8194)  AS  LONG 

COMMON  SHARED  DATAFile  AS  STRING  *  11 

COMMON  SHARED  DrumID  AS  STRING  *  7 

COMMON  SHARED  MCAIN  AS  STRING  *  5 

COMMON  SHARED  MCAOUT  AS  STRING  *  6 

COMMON  SHARED  MEM  AS  INTEGER:  '  memory  range  selection 

COMMON  SHARED  NumberSegaents:  '  number  of  drum  segments 

COMMON  SHARED  ESC$:  ’  escape  character 

COMMON  SHARED  ICOM:  *  menu  selection 

NumberSegments  =  8 
ESC$  =  CHR${27) 

CALL  SetDisplayColors 
CALL  OpenDrivers 
CALL  Set?I024 
BEEP 


DO 


CALL  Displ ayfopLevelMenu*  Total  Coirmands ) 


SELECT  CASE  ICOM 
CASE  2,  3 

CALL  Displ ayMenoryRangeOplions 
CALL  EnterDataPileName 
CASE  4  TO  6 

CALL  Displ ayHemoryRangeGptions 
CALL  EnterDrumID 
CALL  PrintMessageToOperator 
CALL  HessagePositioningDrumTable 
CALL  RaiseDruir,Table 
CALL  OpenShutter 
END  SELECT 
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SELECT  CASE  ICON 
CASE  1 

CALL  PCutility 
CASE  2 

CALL  ReadOutSpectrisc 
CASE  3 

CALL  SendSpectrum 
CASE  4 

CALL  Calibration 
CASE  5 

CALL  Initialise 
CASE  6 

CALL  Assay 
END  SELECT 

SELECT  CASE  I COM 
CASE  4  TO  6 

CALL  CloseShutter 

CALL  LcwerDrumTable 
END  SELECT 


LOOP  KEILZ  ICON  <>  TotalConaands 
CALL  CloseDrivers 
END 

101 

102 

103 

104 

DATA  1,"CS  137", 950, 973,  2,"PO  238",1104,1I27,  Q,0,0,0 

BEFSNG  1 
SOB  Assay 

'  Performs  drum  assay  measurement. 

Set  (4):  '  Turn  or.  assay  lamp. 

CALL  StartDrumriocedure 

Cir  (4):  '  Turn  off  assay  lamp. 

END  SOB 


SUB  Calibration 


'  Performs  drsmi  calibration  measurement. 

Set  !  /  i  *  '  fur*-.  r*T  7*  h»i 

CALL  StartBrumPiccedure 


ri 


ir 


Turn  off  CALIB  lam?. 
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END  SUB 


SUB  CloseDrivers 
'  Close  all  drivers 
RESET 


END  SUB 

SUB  CloseShutter 

'  Close  shutter  and  turn  off  lamp. 

Clr  (5):  '  Clos-  shutter  and  turn  off  lamp. 


END  SUB 

SUB  CursorPosition  (row,  col) 

row  a  CSRLIN 
col  =  POS(x) 

END  SUB 

SUB  DisplayMemoryRangeOptions 

'  Display  memory  range  options. 

CALL  PositionCursor(row,  col) 

PRINT  TAE(col);  "Sr1 act  hmory  Range  Options" 

PRINT  "  M 

PRINT  TAB(coi);  "  1  =  Pul!  Memory" 

PRINT  TAB(col);  "  2  =  First  ‘alf" 

PRINT  TAB(col);  "  3  =  Second  Half" 

PRINT  W"  ol);  "  4  -  First  Quaker" 

PRINT  TAB(colj;  "  5  =  Second  quarter" 

PRINT  TAB(col);  "  6  =  Third  Quarter" 

PRINT  TAE(col);  7  -  Fourth  Quarter" 

PRINT  "  i: 

PRINT  T?.“(col);  "Enter  Memory  Range>";  TAS(col  i  21); 

CALL  Ciai-O'PositioiHrow,  col) 

CALL  GetInputAndCheck(row,  col,  1,  7,  VALUE?) 

HEM  =  V«\L('fArUE$):  'Command  Input. 


END  SUB 

C.UB  DispIcy^cpLevelHenu  (Total  Commands) 
'  Display  the  top  level  menu. 
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; 

Total  Commands  =  7:  'maximum  number  of  commands  available  to  user 
CALL  PositionCursor(row,  col) 

'Print  menu  screen 


PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  H  " 

PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  TAB(col); 
PRINT  "  ” 

PRINT  TAB(col); 


"MOUND  MCA/DrumTable  Communications  Program" 
"Todays  Date:  DATES 

"1  =  Run  PCUTIL.BAS" 

"2  =  Read  out  spectrum  from  MCA" 

"3  =  Load  spectrum  into  MCA" 

"4  =  Drum  Calibration" 

"5  =  Drum  Initialization" 

"6  =  Drum  Assay" 

"7  =  Exit  Program" 

"CMD>  TAB( col  4  6); 


CALL  CursorPosition(row,  col):  'find  location  of  cursor 
CALL  GetInputAndCheck(row,  col,  1,  Total  Commands,  VALUES) 
ICOM  =  VAL(VALUES):  'Coranand  Input 


END  SUB 

SUB  EnterDataPileName 
'  Request  data  file  name. 

CALL  PositionCursor(row,  col) 

PRINT  TAB(col);  "Enter  Data  File  Name>";  TAB(col  4  23); 
CALL  CursorPosition(row,  col):  'find  location  of  cursor 
LINE  INPUT  "",  DATAFile:  'Data  file  name 
LOCATE  row,  col:  'Position  cursor  to  original  location 


END  SUB 

SUB  EnterDrumID 

'  Request  Drum  ID  jf 

CALL  PositionCursor(row,  col) 

PRINT  TAB(col);  "Enter  Drum  ID>";  TAB(col  4  16); 

CALL  CursorPosition(row,  col):  'find  location  of  cursor 
LINE  INPUT  "",  DrumID:  'Drum  identification  f 
LOCATE  row,  col:  'Position  cursor  to  original  location 


END  SUB 

SUB  GetlnputAndCheck  (row,  col,  Lower,  upper,  VALUES) 
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'Input  data  from  keyboard 
'Loop  until  a  correct  entry  is  found 
'Row  and  column  indicate  cursor  location 
'Lower  and  Upper  are  range  values 
'Value$  is  the  keyboard  input 


DO 

LOCATE  row,  col: 
INPUT  ;  VALUES: 
LOCATE  row,  col: 
PRINT  SPC(20);  : 


'Position  cursor 
'Read  command  input. 

'Position  cursor  to  original  location 
'Erase  old  information 


'Check  to  see  if  keyboard  input  is  any  good 


LOOP  UNTIL  (VAL{VALUE$))  >-  Lower  AND  (VAL(VALUES) )  <=  upper 


LOCATE  row,  col  +  1:  'Position  cursor 


END  SUB 

SUB  HalfSegmentDrop 

'  Lower  drum  table  1/2  segment 

Set  (6):  '  lower  drum 
Clr  (6):  ’  clear  relay 

Pause  (5):  '  wait  5  seconds  till  drm  .•  ■  ositioned 


END  SUB 

SUB  Initialize 

'  Performs  drum  initialization  measurement. 
Set  (3):  '  Turn  on  INIT  lamp. 

CALL  StartDrumProcedure 
Clr  (3):  '  Turn  off  INIT  lamp. 

END  SUB 

SUB  LowerDrumTable 

'  Lower  Drum  Table  to  bottom  postion. 

CALL  PositionCursor(row,  col) 

PRINT  ;  "Lowering  Drum  Table"; 
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FOR  i  =  1  TO  7:  '  Lower  drum  table  to  bottom  position 
Set  (5) 

Clr  (6) 

Pause  (3) 

NEXT  i 


END  SUB 

SUB  MessagePositioningDrumTable 

'  Print  message  to  screen 

CALL  PositionCursor{row,  col) 
PRINT  ;  "Positioning  Drum  Table"; 


END  SUB 

SUB  OpenDrivers 

'  The  following  lines  open  the  drivers  for  the  MCA  interface  and 
'  initialise  MCA  communications. 

'  Note:  HCAIN  and  MCAOUT  are  devices  used  for  HCA  communication, 

'  they  are  not  "ordinary"  files.  If  the  device  drivers  HCAS.COM 
'  and  BINS.COH  are  n  t  set  in  CONFIG.SYS,  an  error  will  occur. 

CHDIR  "C:\QB45\THESIS":  '  Set  default  directory 

OPEN  "MCAOUT"  FOR  OUTPUT  AS  12 

'Set  HCA  communications  for  XON,XOFF  enabled,  ASCII  transmission, 
'CR  separator  and  terminator,  no  delay,  keyboard  enabled, 

PRINT  |2,  ESC$;  "SET  0;  0;  1;  0;  0;  1  t" 

PRINT  |2,  ESC$;  "IDH  i":  '  Command  for  HCA  to  send  I.D.  number 

OPEN  "HCAIN"  FOR  INPUT  AS  |1 

'  If  the  MCA  does  not  respond  and  an  error  condition  occurs  on 
'  the  next  command,  press  the  INDEX  and  HOHE  keys  {on  the  HCA) 

'  simultaneously  to  clear  the  HCA  and  enable  handshaking. 

'  If  the  above  does  not  work,  press  the  YES  key  on  the  HCA 
'  and  retry. 

INPUT  |1,  Host$:  '  Get  host  identification  number  and  display. 

CALL  PositionCursor(row,  col) 

PRINT  TAB(coi);  "Host  communicc  .  .  established" 

PRINT  TAB(coI);  Host$; 

CALL  TimerDelay:  '  2  second  delay 


END  SUB 
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SUB  OpenShutter 

'  Open  shutter  and  turn  on  lamp. 

Set  (5):  '  Open  shutter  and  turn  on  lamp. 


END  SUB 
SUB  PCutility 

'  Run  PCUTILQB.BAS  or  PCUTILQB.EXE 

CLOSE  II 
CLOSE  |2 

CHAIN  HC: \qb45\thesis\PCUTILQBM 


END  SUB 

SUB  PositionCursor  {row,  col) 

CLS 

LOCATE  8,  20,  1,  6,  7:  'Moves  cursor  to  middle  of  screen 
row  =  8 
col  =  20 

END  SOB 

SUB  PrintMessageToOperator 
'  Print  message  to  operator 
DO 

CALL  PositionCursor(row,  col) 

BEEP 

INPUT  ;  "Are  drum  and  trolleys  positioned  [Y/N]  M;  Y$ 
LOCATE  row,  col  +  1:  'Position  cursor  to  original  location 
LOOP  UNTIL  Y$  =  HYH  OR  Y$  =  "y" 

END  SUB 

SUB  RaiseDrumTable 

'  Raise  Drum  Table  to  top  postion. 

Set  (7):  '  Raise  drum  to  top  position 

Clr  (7):  '  Clear  relay  setting 

Pause  (50):  '  Wait  for  drum  table  to  reach  top 

Pause  (27) 

END  SUB 

SUB  ReadOutSp  ;trum 
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’  Read  spectrum  from  MCA  and  store  in  data  file 
'  Send  HCA  command  to  get  number  of  channels  in  memory  range. 

PRINT  12,  ESC$;  mMEH  m;  HEM;  T 

*  Read  memory  range  channel  value  sent  from  HCA 

INPOT  II,  HSIZE% 

*  Send  command  to  HCA  for  parallel  transfer. 

PRINT  12,  ESC$;  MD0U1;  2;  0;  ;M;  HEH;  T* 

'  Call  subroutine  to  open  parallel  driver  for  input  from  the  HCA. 

CALLS  OPENBI 

'  The  first  2  values  of  the  array  are  the  number  of  channels 
'  of  data  being  transferred  and  the  start  channel .  Read  these 
'  values  in  using  the  INBIN  subroutine. 

i  =  1 

IAR(i)  =  2 
CALLS  INBIN( IAR( i) ) 

'  The  parallel  driver  will  transfer  data  in  256  channel  groups. 

'  Set  up  a  loop  to  read  in  all  of  the  data  in  256  channel  groups. 

FOR  i  =  1  TO  IAR{1)  -  255  STEP  256 
IAR(i  +  2)  =  256 
CALLS  INBIN(IAR(i  +2)) 

NEXT  i 

'  Close  parallel  driver. 

CALLS  CLOSEB 

'  Send  sipal  to  stop  READ  OUT,  otherwise  HCA  might  hang. 

PRINT  12,  ESC$;  MABT  »H 
'  Write  data  to  data  file. 

OPEN  DATAFile  FOR  OUTPUT  AS  13 

'  LOTUS  can  handle  a  maximum  of  2048  records.  Store  the  data  in 
'  groups  of  2048  channels.  This  file  will  hold  a  8192  channel  spectrum. 

FOR  i  =  3  TO  2050 

PRINT  13,  USING  "lllllflfr;  IAR(i);  IAR(i  +  2048);  IAR(i  +  4096);  IM(i  +  6144) 
NEXT  i 


G-IO 


'  Close  data  file. 
CLOSE  13 


END  SOB 

SOB  SendSpectrum 
'  Send  a  spectrum  to  MCA 

OPEN  DATAPile  FOR  INPUT  AS  |3 
'  Read  data  into  array. 

FOR  i  =  3  TO  2050 

INPUT  |3,  IAR(i),  IAR(i  +  2048),  IAR(i  +  4096),  IAR(i  +  6144) 
NEXT  i 

'  Send  MCA  command  to  get  number  of  channels  in  memory  range. 

PRINT  12,  ESCS;  "MEM  MEM;  “I" 

'  Read  memory  range  channel  value  sent  from  MCA 
INPUT  |1,  MSIZEl 

*  Send  command  to  MCA  for  parallel  readin. 

PRINT  |2,  ESC$;  “DIK1;  2;M;  MEM;  "I" 

'  Hrite  spectrum  into  MCA 

'  Open  the  open  parallel  driver  for  output  from  the  CPU  to  MCA. 

CALLS  OPENBO 

'  The  first  2  values  of  the  array  are  the  number  of  channels 
'  of  data  being  transferred  and  the  start  channel ,  Set  the  first 
'  array  value  to  the  I  of  channels  being  transferred.  The  second 
'  value  should  be  0. 

IAR(l)  =  MSIZE% 

IAR(2)  =  0 

CALL  OUTBIN(VARSES(IAR{l)),  VARPTR(IAR(1))) 

'  Close  parallel  driver. 

CALLS  CLOSEB 

'  Send  signal  to  stop  READ  IN,  otherwise  MCA  might  hang. 

PRINT  *2,  ESCS;  "ABT  I" 
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'  Close  file/ 


CLOSE  13 

END  SUB 

SUB  SetDisplayColors 
CLS 

COLOR  14,  1 

END  SUB 
SUB  SetPI024 

'  Initialise  PIO-24  mode 
'  Sets  PB  port  output  and  PCO-3  input 
SetCRconfig 

'  Clear  all  seven  PIO-24  relays 

FOR  i  =  1  TO  7 
Clr  (i) 

NEXT  i 


END  SUB 

SUB  StartDrumProcedure 

'  This  subroutine  lowers  the  drum  by  half  segments  and  then 
'  includes  the  appropriate  MCA  command  file 

FOR  Segment  =  1  TO  NumberSegments 

IF  Segment  =  1  THEN 
CALL  Half Segment Dr op 

JLSEIF  Sepent  >=  2  OR  Sepent  <=  NumberSepents  THEN 
CALL  HalfSepentDrop 
CALL  HalfSepentDrop 
END  IF 

CALL  PositionCursor(row,  col) 

PRINT  TAB(col);  "Scanning  Sepent:";  Sepent; 

LOCATE  row,  col  +  19 

IF  I COM  =  4  THEN 

REM  SINCLUDE:  'C:\QB45\THESIS\CALIB.BAS' 

ELSEIF  ICON  =  5  THEN 
REM  SINCLUDE:  'C:\QB45\THESIS\INIT.BAS' 
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ELSEIP  ICOH  a  6  THEN 
REH  $INCLUDE:  'C:\QB45\THESIS\ASSAY.BAS' 
END  IF 

CALL  HessagePositioningDriMTable 
NEXT  Segment 


END  SUB 
SUB  TimerDelay 

'  2  second  time-delay  routine 

x  =  TIMER 
DO 

xl  =  TIHER 

LOOP  UNTIL  ABS(x  -  xl)  >=  2 


END  SUB 
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Appendix  H:  Listing  of  CALIB.BAS 


'  Program  called  CALIB.BAS,  this  is  an  IKCLODE  file. 

'  Save  as  a  text  file  only! 

'  Subroutines  and  Functions  are  not  allowed! 

'  Used  in  conjunction  with  DrumTAB.BAS  (menu  program) 

'  CALIB  issues  command  to  the  CANBERRA  MCA  to  perform  a  calibration  procedure 
• 

'  The  information  below  contains  the  preset  time  and  ROI  data 
'  Edit  the  information  below  for  any  particular  application 
'  No  other  changes  need  be  made  elsewhere  in  the  program 

ROIdata:  DATA  1,MCS  137M, 950,973,  2,"PU  238",1104,1127,  3, "Allen", 2, 11,4, "Da¬ 
ve",  1200  ,1210, 0,0, 0,0 

PresetTime%  =  4:  'Total  time  in  seconds  for  data  collection  of  one  segment 

' tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

'  Clear  Data 

PRINT  |2,  ESC$;  "CLD  ";  HEM;  "f" 

Pause  (1) 

'  Set  Preset  Time 

PRINT  12,  ESC$;  "PST  ";  PresetTime%;  ";  M;  MEH;  T 
Pause  (1) 

'  Start  Collecting  Data 

PRINT  *2,  ESC$;  "SCO  MEM;  "t" 

Pause  (1) 

'  Wait  until  data  collection  is  done 

x  =  TIMER 
DO 

xx  =  TIMER 

LOOP  UNTIL  ABS(xx  -  x)  >  PresetTiraet 

OPEN  DrumIDS  +  ".dat"  FOR  APPEND  AS  15 

IF  Segment  =  1  THEN 
offset  =  20 

PRINT  15 ,  M**************ttt**m**t**m************tt***t***t*******t*t*t***" 

PRINT  *5,  "  " 

PRINT  15,  "CALIB  measurement" 

PRINT  15,  "Drum  ID# :  ";  TAB(30);  DrumIDS 
PRINT  15,  "Date:  ";  TAB(30);  DATES 
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PRINT  15,  "Time:  ";  T.\B{30);  TIMES 
PRINT  15,  "Number  of  Segments:  ";  TAB ( 30 ) ;  NuirierSegments 
PRINT  15,  "Preset  Time  (sec):  ";  TAE(30);  PresetTimel 
PRINT  *5,  "  " 

PRINT  15,  "ROI  Data" 

RESTORE  ROIdata 

READ  ROIt,  ROI$,  ROIstart,  ROIend 
NumberOfROIl  =  0 
DO  WHILE  ROIt  <>  0 
PRINT  *5,  ROI$ 

PRINT  15,  "Start  Channel:  ";  TAB{30);  RO!.-tart 
PRINT  #5,  "End  Channel:  ";  TAB(30);  R0I*nd 
READ  ROIt,  ROI$,  ROIstart,  ROIend 
NumberOfROIl  =  NumberOfROIl  +  1 
LOOP 

PRINT  t5,  "  " 

PRINT  t5,  TAB(offset);  "Counts";  TAB(offset  +  10);  "Counts  Bkg";  TAB(offset  + 
25);  "Counts  Net";  TAB{ offset  +  40);  "Segment" 

PRINT  15 ,  "  " 

DIM  Total Counts{l  TO  NumberOfROIl) 

DIM  Total CountsBKG(l  TO  NumberOfROIl) 

DIM  Total CountsNet(l  TO  NumberOfROIl) 

END  IP 

RESTORE  ROIdata 

FOR  ROIindex  =  1  TO  NumberOfROIl 
'  Get  ROI  Data 

READ  ROIt,  ROI$,  ROIstart,  ROIend 

PRINT  |2,  ESC$;  "RCD  ";  ROIstart;  ROIend;  MEM;  "t" 

Pause  (1) 

INPUT  tl,  StartChannelS  , 

INPUT  tl,  LastChannelS 

Start  =  VAL( StartChannelS) 

Last  =  VAL(LastChannelS) 

Channels  =  ABS(Last  -  Start)  +  1 

DIM  Channel Data(l  TO  (Channels  +  1))  AS  STRING 

FOR  j  =  1  TO  (Channels  +  1) 

INPUT  tl,  ChannelData( j) 

NEXT  j 
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Counts  =  0 

FOR  j  =  1  TO  Channels 
Counts  =  Counts  +  VAL{ChannelData( j)) 

NEXT  j 

CountsBKG  =  Channels  *  (VAL(ChannelData(l))  +  VAL{ChannelData(Chanrels)))  /  2 
PRINT  15,  TAB{1);  ROI$; 

PRINT  *5,  USING  "llltil.ti";  TAB{offset  -  4);  Counts;  TAB(offset  +  10);  CountsBKG; 
TAB(offset  +  25);  Counts  -  CountsBKG; 

PRINT  15,  TAB(offset  +  45);  Segment 

Pause  (1) 

TotalCounts(ROIindex)  =  Counts  +  TotalCounts(ROIindex) 

TotalCountsBKG(ROIindex)  =  CountsBKG  +  TotalCountsBKG(ROIindex) 

Total CountsNet(ROIindex)  =  (Counts  -  CountsBKG)  +  TotalCountsNet(ROIindex) 

ERASE  Channel Data 

NEXT  ROI index 

PRINT  15,  "  " 


IF  Segment  =  NumberSegnents  THEN 


PRINT  15,  "  " 

PRINT  15,  "Total  Counts" 

RESTORE  ROIdata 
FOR  index  =  1  TO  NumberOfROIl 
READ  Roll,  R0I$,  ROIstart,  ROIend 
PRINT  15,  ROI$; 

PRINT  |5,  USING  "111111.11";  TAB{ offset  -  4);  Total  Counts (index);  TAB(offset  + 
10);  Total CountsBKG( index);  TAB(offset  ♦  25);  Total CountsNet( index) 

NEXT  index 
PRINT  IS,  "  " 

PRINT  15,  " " 
PRINT  15,  "  " 

PRINT  15,  "  " 

CLOSE  15 

OPEN  DrunIDS  +  ".dat"  FOR  INPUT  AS  15 
DO  UNTIL  EOP(5) 

LINE  INPUT  15,  LineBufferS 
LPRINT  LineBufferS 
LOOP 

ERASE  TGtal Counts 
ERASE  Total CountsBKG 
ERASE  TotaiCountsNet 


END  IF 

RESTORE  ROIdata:  '  nturn  start  of  next  read  to  first  data  statement 
CLOSE  15 
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Appendix  I:  Listing  of  MakeDrum 


t 

t 

TableSYS.OBJ: 

DruaSYS.OBJ: 

PCCTILQB.OBJ: 

PCOTILQE.EXE: 

DrumTAB.LIB: 

DrumTAB.OBJ: 

DnaffAB.EXE: 


Hake  file  called  MakeDrum 

To  run,  at  DOS  prompt  type:  HAKE  MAKEDRUM 

TableSYS.ASH 
MASH  TableSYS.ASM 

DrumSYS.ASH 
MASH  DrumSYS.ASH 

PCOTILQB.BAS 

C:\qb45\bc  PCOTILQB.BAS  / I *  /v  /x  / v  / o 
PCOTILQB.OBJ 

LIKK  PCOTILQB.OBJ,PCOTILQB,, c:\qb45\bcom45. lib  /co 

DruaSYS.OBJ  TableSYS.OBJ 

LIB  DruaTAB.LIB  +  DruaSYS.OBJ  +  TableSYS  OBJ 

DruaTAE.BAS  CALIE.BAS  ASSAY. BAS  INIT.BAS  DrumTAB.LIB 
c:\qb45\bc  DruffiTAB,DruaTAB,DruisTab  /si 

DrumTAB.OBJ 

LINK  DrumTAB,,, c:\qfc45\bcoa45. lib  +  c:\qb45\thesis\DruaTAB.LIB  /co 
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1  Appendix  J:  Electrical  Mapping  of  PIO-24  and  STC 


Sense  Line 

PIO-24 

ERA-01 

STC 

1 

PA  1 

pin  36 

32-1 

2 

PA  2 

pin  35 

J2-2 

3 

PA  3 

pin  34 

32-3 

4 

PA  4 

pin  33 

32-4 

5 

PA  5 

pin  32 

32-5 

Control  Line 

PIO-24 

ERA-01 

STC 

1 

PB  1 

PBR  1  NO 

32-9 

2 

PB  2 

PBR  2  NO 

32-10 

3 

PB  3 

PBR  3  NO 

32-11 

4 

PB  4 

PBR  4  NO 

32-12 

5 

PB  5 

PBR  5  NO 

32-13 

6 

PB  6 

PBR  6  NO 

32-14 

7 

PB  7 

PBR  7  NO 

32-15 

Gnd 

HA 

PBR  1-7  CO 

32-25 

NO:  Normally  Open  Contacts 

CQ:  Common  Contacts 

FB:  PB  Port 

PA:  PA  Port 

PER:  PB  Port  Relay 


appendix  K:  Drum  Measurement  Run  Using  DrumTAB 


**********  *  *************  *************************************»:**** 


CALIB  measurement 

Drum  IDi : 

33416 

Date: 

11-27-1990 

Time: 

09:30:07 

Number  of  Segments: 

8 

Preset  Time  (sec): 

3 

ROI  Data 

CS  147 

Start  Channel: 

950 

End  Channel: 

973 

PU  238 

Start  Channel: 

1104 

End  Channel: 

1127 

Counts 

Counts  Bkg 

Counts  Net 

Segment 

CS  137 

152.00 

0.00 

152.00 

1 

PU  238 

1.00 

0.00 

1.00 

1 

CS  137 

122.00 

0.00 

122.00 

2 

PU  238 

1.00 

0.00 

1.00 

2 

CS  137 

lo4.00 

0.00 

134.00 

3 

PU  238 

1.00 

0.00 

1.00 

3 

CS  137 

141.00 

12.00 

129.00 

4 

PU  238 

3.00 

12.00 

-9.00 

4 

CS  137 

139.00 

0.00 

139.00 

5 

PU  2ot 

0.00 

0.00 

0.00 

5 

CS  137 

129.00 

0.00 

129.00 

6 

PU  238 

0.00 

0.00 

0.00 

6 

CS  137 

j  *1.00 

0.00 

131.00 

7 

PU  238 

0.00 

0.00 

0.00 

7 

CS  137 

119.00 

0.00 

119.00 

8 

PU  238 

1.00 

0.00 

1.00 

8 

Total  Counts 

Ca  137 

1067.00 

12,00 

1055.00 

PU  238 

7.00 

12.00 

-5.00 

****i*************^****************************************t******* 


Appendix  L:  Derivation  of  Correction  Factors 

Hall  and  matrix  material  correction  factors  are  derived  below  for  incorporation  into  CAL- 
IB.BAS  at  a  later  time. 


Activity 

After  selecting  a  sipature  gamma  of  interest,  the  activity,  A{V)  ,  of  a  sample  can 
be  calculated  by 


(  dis\ 

am  -  ™co  (--]  a.D 

where  \  =  decay  constant  and  N{ f)=  number  of  atoms  present  at  time  t.  Additionally,  a 
specific  decay  rate,  A,a(,f)  or  specific  activity,  can  be  defined  by 


(  atoms  A 

-  Av/ AtomicMass 

(1.2) 

V  gram  ) 

T  InZ  “ 

K 

-  I.7W 

(1.3) 

-  J2ix 

Av  "1  (  dis  \ 

(1.4) 

7"  1/2 

. AtomicMass J  [g~secj 

where 


Av  =  Avogadros  Number, 

Tuz-  half-life  of  the  material. 

Since  the  decay  of  most  radioisotopes  is  not  always  followed  by  a  sole  gamma  emis¬ 
sion,  the  specific  decay  rate  is  more  appropriately  defined  as 

■  lKN  (f^)  «-s> 


where  /  (.y/dis")  is  the  fraction  that  decays  by  the  sipature  gamma  of  interest. 

To  convert  activity  to  count  rate  and  vice  versa,  count  rate,  CR,  is  given  by 


CR 


£  abz  A 


counts \ 
soc  ) 


(1.6) 


where  mis  the  mass  of  unknown  sample  in  grams,  and  eMl  is  the  absolute  detector  effi¬ 
ciency  in  counts/gamma  ray. 

Now  one  can  measure  the  number  of  counts  deposited  ,'n  a  detector  and  relate  this  to 
specific  activity: 
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CR  - 


C\ 
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(1  -e'u‘) 


vhere  te  is  the  counting  time,  and  C  is  the  net  number  of  counts  under  the  signature  gaima 
full -energy  peak  (excluding  background).  Furthermore,  CR  needs  to  be  corrected  for  dead 
time  losses,  if  appreciable. 

In  the  particular  case  for  Z3BPu,  where  the  half-life  is  fairly  long,  i.a,,  if 
\tc «  1,  e_u‘  *  1  -  Kte  by  a  Taylor  expansion.  Thus, 


C 


£  abt  A  ,TTl\tc 

X 
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or 


A,m  « 


C 

®  abf^c 


( Bq ) 


(1.9) 


At  first  it  appears  the  right-hand  side  of  Equation  (L.9)  contains  only  one  unknown; 
however,  eob,  could  easily  be  obtained  by  performing  an  assay  with  a  calibration  drum  of 
known  activity.  Yet  theie  is  another  factor  that  has  been  neglected,  that  is  attenuation 
of  the  source  in  the  drum  itself.  Using  Equation  (L.9)  alone  would  not  account  for  this, 
and  it  is  derived  next. 


Transmission 

A  drum  consists  of  a  matrix  material,  unknown  source  or  sources,  and  the  outer 
walls.  The  parts  of  the  matrix  material  and  drum  walls  are  of  dissimilar  substances  so 
they  attenuate  the  source  signature  gamma  rays  differently.  This  attenuation  causes  the 
observed  count  rate  (Equation  (L.7) )  to  differ  from  the  ideal  case  in  which  neither  the 
matrix  *  --terial  or  drum  walls  are  present,  i.e.,  the  count  rate  noticed  in  absence  of 
attenuating  materials.  As  a  result  data  collected  from  the  MCA  will  predict  a  wrong 
activity  value,  however,  using  an  aoditional  "transmission"  source  in  conjunction  with  the 
unknown  drum  source  will  correct  for  most  deviations. 

First  a  distinction  must  be  made  between  the  different  sources;  hence  the  unknown 
source  is  designated  tue  assay  source.  The  assay  source  is  not  confined  to  a  single  area, 
and  cannot  be  treated  as  a  point  source.  Instead,  it  is  uniformly  distributed  (almost 
always)  throughout  the  entire  drum  among  the  matrix  material.  About  the  only  complication 
present  here,  besides  drum  attenuation,  is  a  single  scan  of  one  drum  sepent  does  not 
provide  sufficient  data  to  analyse  the  entire  drum  inventory.  Scanning  multiple  sepents 
(otherwise  known  as  m?  ping)  and  rotating  the  drum  normally  averages  out  any  in¬ 
homogeneities  caused  by  source  geometry7 . 

Furthermore,  the  walls  are  usually  considered  separately,  that  is,  not  part  of  the 
matrix  material.  Thus  drum  attenuation  is  caused  by  two  factors.  One  is  wall  attenu¬ 
ation,  and  the  second  is  matrix  material  attenuation.  Both  add  to  the  overall  attenuation 
of  the  source  radiation. 
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The  following  derivation  assumes  wall  and  matrix  material  attenuation  are  the  same, 
i.e.,  both  are  indistinguishable  from  each  other  and  are  lumped  together  under  the  general 
category  of  drum  attenuation.  Drum  attenuation  can  be  determined  by  using  a  transmission 
source  with  known  activity  emitting  a  gamma  ray  close  in  energy  to  that  of  the  assay 
source  signature  garana.  Here,  attenuation  of  the  transmission  source  is  defined  by 


Tt  “ 


(1.1.1) 


where 


Tt-  transmission  source  attenuation, 

Tau  -  attenuated  intensity  of  transmission  source, 

T 0~  unattenuated  intensity  of  transmission  source, 

=  mass  attenuation  coefficient  of  drum  at  transmission  source  gairma-ray 
energy, 

pd  =  density  of  drum, 

xt-  transmission  source  pathlength  (or  distance  through  the  drum). 

Similarly,  attenuation  of  the  assay  source  is 

70  =  e  (1.1.2) 


where 

T a  -  assay  source  attenuation, 

(p  )a  =  nass  attenuation  coefficient  of  drum  at  assay  source  signature  gamma 
energy, 

pd  =  density  of  drum, 

xa  =  assay  source  pathlength  (or  distance  through  the  drum). 

It  also  follows  that 


A 


tn*a* 


AcorrxTa 


(1.1.3) 


such  that  A  mem  is  the  ’seasured  assay  source  intensity  from  Equation  (L.9),  and  Acorr  is 
the  intensity  of  the  assay  source,  corrected  for  drum  attenuation. 

In  a  simple  example  where  both  transmission  and  assay  sources  experience  the  same 
attenuation  and  their  difference  in  pathlengths  is  accounted  for  by  some  geometry  factor, 
Fgt0 ,  for  assay  and  transmission  intensities  close  together* 
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Also,  for  assay  and  transmission  sources  far  apart  in  energy 


L-3 


Thus 


e 


(1.1.5) 


(1.1.6) 


As  has  been  noted,  vail  and  matrix  material  attenuation  were  considered  inseparable. 
Next,  individual  corrections  for  wall  and  matrix  material  are  addressed.  Expanding  Equa¬ 
tion  (L.1.3)  for  the  two  contributions  yields 
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where  F^u  is  the  correction  factor  for  attenuation  due  to  the  drum  walls,  and  Fmmis 
the  correction  factor  for  attenuation  due  to  the  matrix  material  inside  the  drum. 

?  ast  the  unattenuated  activity/ intensity  of  the  assay  source  can  be  calculated  by 
applyii.,  liquations  (L.9)  and  (L.1.8).  In  addition,  since  mass  or  number  density  is  pro¬ 
portional  to  activity,  the  assay  source  quantity  inside  the  drum  can  be  determined. 

Derivation  of  Wall  Attenuation  Factor,  F^u.  Drum  wall  attenuation  is  accounted 
for  by 

F„u  ~  ~=  -  =*-Y  (I.i.1.1) 

V  1  wall  V  1  fnipty  / 

where 

=  drum  wall  transmission  =  (~7p)  , 

and  where  T,mpty  is  the  transmission  intensity  thru  an  empty  drum,  T0  is  the  unattenuated 
transmission  intensity,  and  k  is  the  ratio  of  mass  attenuation  coefficients  (of  drum 
wall)  at  assay  and  transmission  energies;  k  -  1  if  the  energies  are  very  close  together. 

The  square  root  of  Tuo(i  is  used  since  the  transmission  gamma  rays  pass  through  2 
walls  of  the  drum  whereas  assay  gamma  rays  pass  through  only  1  wall  thickness.  By 
neglecting  air  attenuation  inside  an  empty  drum,  the  transmission  source  attenuation  is 
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rr“  =  transmission  source  attenuation  ir.  drum  wall, 

(it  Nuail 

-Jt  =  mass  attenuation  coefficient  of  drum  wall  at  transmission  source 
energy, 

P wati =  drum  wall  density, 

xm xU-  thickness  of  one  drum  wall. 

Then  the  assay  source  attenuation  in  the  drum  wall,  T^°“,  is  given  by 


-c-p-—  T‘C-r 

*  *  i 


(I.l  .1  .3) 


where  (;)^°'(is  the  mass  attenuation  coefficient  of  the  drum  wall  at  the  assay  source 
energy.  But  from  Equation  (L.l.l) 
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Lastly,  from  Equation  (L.1.3) 
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Derivation  of  Matrix  Material  Attenuation  Factor,  Fmn.  The  transmission  source 
attenuation  (assuming  a  homogeneous  matrix  material)  is 
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where 


Tf”71  =  transmission  source  attenuation  in  matrix  material, 

(^)^m=  mass  attenuation  coefficient  of  matrix  material  at  transmission 
source  energy, 

p,^  =  matrix  material  density, 
xmm=  thickness  through  matrix  material. 


Then  the  assay  source  attenuation  in  the  matrix  material,  T is  given  by 


T 


e 
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where 


(5)r-  1,1355  attenuati°n  coefficient  of  matrii  material  at  assay  source 
energy, 

(S=  geometric  correction  factor’  (.823  for  cylinders), 

kmn  =  ratio  of  mass  attenuation  coefficients  in  the  matrix  material  at 

assay  and  transmission  source  energies. 

But  from  Equation  (L.l-1) 
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where  pty  is  the  measured  transmission  intensity  through  a  full  or  non-empty  drum. 

Thus  from  Equation  (L.l.2.2) 
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And  finally,  from  Equ.’ion  (L.1.3) 
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